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The UCSD Pascal system described in. the fol lowing document is- a 
system intended to run on stand alone micro- and mini-computers This 
system -is hxnhly machine independent since it runs on a pseudo-machine 
interpreter common In referred to as the "P-machine". All the system 
software is written in Pascal, except tor tho P-«a = hino inttrprot.r and 
a few run-time support routines written in assembler for efficiency, 
resulting in relatively strai $n tf-orward software maintenance and 
enhancement. 



The system is designed to be used primarily with a CRT terminal 
acting as the CONSOLE device; however, the system is flexible enough to 
be reconfigured for slownr hard-copy terminals. For further 
information rsgardin-j compatab i 1 i ty between various types of equipment 
and this system see the "SETUP" document in Section 4.3. This document 
is intended for programmers who are familiar with the Pascal 
programming language and have some experience in writing computer 
programs. 

The following is a tutorial book on PASCAL: 

Kenneth L. Bowles, 

(Microcomputer) Problem Solving Using PASCAL 

Springer-Verlag, New York, (c>1977 

We suggest the following book as a PASCAL reference guide: 

Kathleen Jensen and Niklaus Wirth, 
PASCAL User Manual and Report 
Springer-Verlag. New York. <c)1975 



For cocurnent-Li tic-n concerning the differences between UCSD 
Pascal and St£r.£ard Pascal see Section 2.2. 
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1. 1. 1 THE UCSD PASCAL SYSTEM: AN OVERVIEW 

The structure of the UCSD Pascal system is best 

i^I.^nJ'II'J? t#r r ° f th€ "tree-like- «tructur. diagram figure 0.1 
at the end of this sub- section. *.«*«■ w. * 

«u«t.m T 5! dij 9 r * m i" JiS UT » 0. 1 depicts the outermost level of the 
system. In terms of a -tree- or structure diagram, the "root" 

^*h # n« hf* k th ! oot * rm " t »«v»l. while the -leaves- U. .. the botes 

™ii.z ;?" to io r r ievei,) «^«p^ to the i ow .r i. v .u of ". 

JiU a# JJ # k? U " r 1S ln * P* r ticular level, th. system display, a 
lullint tZ l rti 9 commands called the -prompt-line-. If the system is 
running on a CRT screen type terminal, then the prompt-line will 
usually appear at the top of the screen. Commands *r 9 usually invoked 

I!-*"?*?! * I 1 " 91 * char * ct " To. the CONSOLE device. For example. ?h. 
prompt-line for the outermost level of the system is: "**P"' *"• 

Command: E<dit, R(un. FUle, C(omp, LCink. X(ecute. A<ssem, D<ebu S , ? CI. 53 

■ By typing -F" the user will "descend- a level within the 
structure diagram into a level called the -Filer-. Upon entering the 
tM p;, an °r er , Pr r Pt " lin * filing the set of commands available ml 
th» uilr* «-°f th * SgStem iS di *P^y^- The ocult command causes 
eSL-«; i ? I !r° m th * FUer and "*««" d " »»ack to the outermost 
command level of the systtm. Now the user is back at the level in the 
system from which he started after bootstrapping the machine. So«e 
commands within the system prompt the user for the name of some disk 
rue. in these cases, the user enters the name of the file followed bu 

«J;! rT ii! fi V e ? 0rn - J f an #rror is "•<• in typing a portion of the file 
™I'« the * ac * s P* c « kati (or «<iuivalent key depending upon the system 
configuration) may be used to -back over- and erase the erroneous 

Jil!'«™ # 11™ ? el8 ?f k ? y <™bout ^y) may be used to erase the entire 
file nam*, thereby allowing the user to completely start over If the 
user decides not to accept any file name whatsoever, -escape- from this 
command is by entering a file name of zero characters, i.e. type <cr>. 

«« m . «# ??*••*!!"* du « f° * l^ited amount of room on the prompt-line, 
line infrequently used commands may not appear on the promot- 

A concept central to the design of the entire UCSD Pascal 
system command structure is the concept of the -workfile- A workfil. 
can be thought of as a -scratch-pad- area used for development of 
programs and only one workfile is allowed at any one time If a user 
wishes to begin a new workfile, the contents of the old one can be 
saved, under a separate file name, for later reference by u.ing the 
SUve command in the Filer level of the system. When that file is 
later retrieved for further work on the contents, it is possible that a 
»«!? ? P !V^f! (usuall « «oorea and code) will be retrieved together 
and in total they comprise the work-file. 
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1.1.2 OUTERMOST LEVEL COMMANDS: AN OVERVIEW 

A. E(dit 

Typing "E" while at the outermost command level of the system 
causes the editor program to be brought into memory from disk. The 
user may, while in the editor* insert or delete text inside his 
workfile or any textFile. along with many other powerful commands. See 
Section 1.3 for details. The workfile text (if present) is read into 
the editor buffer, otherwise the Editor prompts for a file. 

B. F(iler 

"F M places the user in a level of the system called the Filer. 
This section of the system contains commands used primarily for 
maintenance of the files stored on the disk. The L(dir command allows 
the user to list the titles and the last modification date/ as well as 
determine the number of blocks occupied by each file on the disk. The 
TCransfer command is used to copy from either one disk to another* or 
from one area on a pisrticular disk to another area on the same disk. 
For more documentation on the Filer level including commands associated 
with the "getting", "saving", and "clearing- of the user's workfile see 
Section 1. 2. 

C. C(omp 

This command initiates the system compiler to compile the users 
work-file. If there is no work-file currently the user is asked for a 
source text file name. If a syntax error within the source is 
detected, the compiler will stop and display the error number and the 
surrounding text of the program. By typing a space, the user can cause 
the compiler to continue the compilation. Typing an <esc> causes the 
compiler to abort & return to Command level. Typing 'E' will, if the 
system editor is the screen editor, call the editor placing the cursor 
near the offending symbol. If the compilation is successful, (i.e. no 
syntax errors were encountered) a codefile called *SYSTEM. WRK. CODE is 
written out onto the user's disk and becomes part of the workfile. For 
more documentation on the use of the UCSD Pascal compiler see Section 
1.6. 

D. R(un 

This command causes the codefile associated with the current 
workfile to be executed. If no such code file currently exists, the 
compiler is called in the same manner as described in C above. If the 
compilation requires linkage to separately compiled code the linker 
will automatically be invoked and will assume the use of the file 
♦SYSTEM. LIBRARY. After a successful compilation, the program is 
executed. 
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E. XCecute 

This command prompts the user for the filename of a previouslu 
compiled codefile. If the file exists, the codefil. is executed* 
S H™* tH * mes,a 9* "can't find file- is returned. (Note: the 

.CODE" suffix on such a file is implicit. > If all code necessary to 
execute the codefile has not been linked in, the message -file <fileid> 
not linked in is returned. It is convenient to XCecute other programs 
which have already been compiled because otherwise the user would have 
to enter the Filer, 0(et the file, Q(uit the Filer, and then R(un the 
program. 

i 

F. A(ssem 

Just like C(omp except the system assembler is invoked rather 
than the system compiler. 

0. DCebug 

This command causes the current workfile to be executed. If 
the program in the workfile has not been compiled, the compiler will be 
called as in the case of the R(un command. However if a run-time error 
occurs, or a user- defined break-point or halt is encountered, the 
Debugger program is called. The Debugger is a program which allows the 
user to examine the contents of variables within the program. See 
section 1.5 Debugger for more details. 

H. L(ink 

This command starts the system linker program explicitly to 
allow users to link routines from libraries other than 
♦SYSTEM. LIBRARY. See section 1.8 for more information on the Linker. 

1.1.3 UTILITY PROGRAMS 

There arm many functions needed by users of any operating 
system. To attempt to make all these functions system functions would 
result in a terrible proliferation of command letters as the base node 
level. In order to keep the COMMAND line simple, we have restricted 
the functions available on it to what we feel is the bare minimum for 
program and text development. The other useful, but much less often 
used functions ar^ available through the X(ecute command. The «ort of 
functions which ant available are the desk calculator, the patch/dump 
utility, the terminal configuration setup program, a bootstrap mover, a 
librarian and many others. For a complete list of the utility programs 
now available with the UCSD Pascal system, reference Section 4 in the 
Table of Contents. Any programs which you write and feel would be a 
useful addition to our library of utilities will be welcome 
contributions. 
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1. 1.4 AN INTRODUCTION TO THE UCSD PASCAL SYSTEM 



1.5 is the first release which contains the fully intergrated 
emented concept of separate compilation a 
the first to support multiple types of processors 



nd implemented concept of separate compilation and assembly. I.4b was 



The great bulk of the system software is written in Pascal and 
runs on a relatively simple pseudo-machine. If this pseudo-machine is 
emulated by a machine language program on a new real machine* the 
Pascal software will also run on that new real machine,. 

One class of differences among versions of the system is due to 
aspects of the pseudo-machine that are not identicaly emulated by the 
implementations for different types of processors. A subsection in 
section A contains a chart of differences between processors the system 
currently runs on. 

Another class of differences stems from variations in the 
system I/O environments rather than in the host processor. Included 
here sre difference in system console terminal types («. e. hard-copy vs 
CRT vs storage tube) or command conventions and capabilities (eg. 
"intelligent" vs -dumb" CRT's). The system is intended to be able to 
cope with this sort of variation. Version 1.4 had some troubles with 
terminals that generate/require two-character sequences for some 
controls, and single-character sequences for others. The utility 
program "SETUP** has been completely regenerated for I. » (see section 
4.3). 

In the PDP-i:L world these mass storage variations arm not too 
serious, primarily because there is considerable motivation to be 
compatible with DEC devices and media. We have written and support 
drivers for a few DEC incompatible devices but make no' claim to 
support users who want to develop their own such drivers. See section 
A for warnings about problems you might encounter. 

The situation in the B0S0/Z80 world is much more chaotic. 
Since is would not be practical for the Project to write and support 
drivers for the vast multitude of 80S0/ZB0 I/O environments that exist, 
we have chosen to take advantage of the widespread implementation of 
Digital Research's CP/M operating system by structuring the pseudo- 
machine's I/O operations as calls on CP/M's Basic I/O Subsystem (BIOS) 
primitives. Therefore, any I/O configuration on which CP/M has been 
implemented should also be able to support the Pascal system. We do 
not guarantee this. For example, Intel MDS disk controllers cannot 
read disks generated here and some BIOS's we have encountered do not 
completely meet all the requirements specified for CP/M. UCSD plans to 
support some of the larger distribution 8080- based machines directly. 

Our dominant mode of distribution for 8080/ZBO systems. will be 
on 3740 compatible diskettes One of the distribution diskettes will 
be CP/M oriented. This disk will be used, via a somewhat awkward two- 
step process, to bring up UCSD Pascal on a particular CP/M 
configuration. Look to section A for details on this process. It also 
describes the configuration of a modified BIOS, which will better 
support the needs of the Pascal system. Finally, directions av given 
for making it possible to boot directly to Pascal rather than 
indirectly through a CP/M program. 
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A nonber of «,., on th. dl.k .tart uith 'SYSTEM. ■ ,p.cmc„i y: 



SYSTEM. PVP- 1 J 
SYSTEM. MICRO 
SYSTEM. PASCAL 
SYSTEM. FILER 
SYSTEM. COMPILER 
SYSTEM. SYNTAX 
SYSTEM. EDITOR 
SYSTEM. LINKER 
SYSTEM. ASSMBLER 
SYSTEM. SWAPDISK 
SYSTEM. CHARSET 
SYSTEM. LIBRARY 
SYSTEM. WRK. TEXT 
SYSTEM. WRK. CODE 
SYSTEM. STARTUP 



name they^carrj "^aVJsV "" tWlt" *** * yStem ••»-»* •* the 

COMPILER? ASSEMBLER ar. thefUes thL E ? XT °? # ""*' LINKE *' 
when 'EV 'F', etc is tun!/ I that are invoked by the text editor 

INTERP and MICRO are the ?!?« T Z* th * M1 * S * re *«""• specific, 
particular ^^0^9 used Si^oS?"?* 1 "" J?? *«*"P"f" *" the 
disk, meant for TERAK cLn!*!' CHARSET * 5 * «]• which appears on 
the soft character set and ^ ! nd ""'J'"* th# d "*"*tion for 
LIBRARY i, a file contain?™ 1 ! f° r th * Triton lo 9° Prompt, 
for use bu thl LinJ« ?i fl - ?* r-tely ••••»"•«« or compiled routines 
contain* th! Lxn * er *" producing executable code files PASCAL 
contains the operating system, and the Debugger SUAPDISK I.:.„ 
used by some of the su*tem «»*«,«» + ., m **' ruu as Br - swwuisk is a file 

«ll»« T* ^ system segments during compilation of "inciud.- 

files if a memory shortage exists. It is a 204a h„*. *<T J c J ud * 
portion of memory swapped to It whan - !il^2 M * <UhlCh flets * 
core. When the directory work is comolfil tn? n#0d * *° b * r * ad lnto 
its original state STARTUP il * *i^ P !? L ** "•«or 1l is restored to 
u.ar's Option. If it exists on \ lily It "" be cre *ted at the 
It a runnable code-file, and erecut- ', * I ° P *I? tln 3 ««**«* considers 
allows the user to hall a 1 " tt\ ** lnltl «"» time. This 
prompt comes up. ^"m ru^t m^hT^n^aTi ^ " ln 

tint »T' TEXT and wrkcode •*■""•■ c^rJn; 1 '^; uix. ^:; ;:. 

action has occurred to th» iun*ir-.c< 1 - n ue arter some 

• ome text editing on a k - ,' stJJI^^;^ 1 ^ haVi " S d °" 
rile (SYSTEM. WRK CODE). (SYSTEM. WRK. TEXT) or compiling a work- 



All other files on the disk are user 
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*««*«***««-****# -ft-************** 
* FILEHANDLER * * Section 1.2 * 



Version 1.5 



September 1978 



1.2. 1 



FILES 



A file it a discrete 'chunk' of information which is stored on 
the disk and referenced by a filename. Each disk hat a directory 
which contains the filenames and locations of each file on the disk. 
The Filehandler. or Filer, uses the information contained in the disk 
directory to manipulate files. 

One of the attributes of a file is its type. The type of the 
file determines the way in which it can be used. File types are 
assigned based on the file name. 

Reserved type suffixes for filenames *ve: 



. TEXT 

. CODE 
. DATA 
. FOTO 
. ORAF 

. BAD 



Human readable text. 

Machine executable code. 

Data file. 

A file containing one TERAK screen-image. 

Intended to be a file containing a vector 
list of a graphic image. Currently unused. 

An unmovable file covering a physically 
damaged area of a disk. 



1.2.2 



VOLUMES 



A volume is any I/O device, such as the printer, the keyboard, 
or a disk. A "block-structured" device is one that can have a 
directory and files, usually a disk of some sort. A non- 
fa lock-structured device does not have internal structure.- it simply 
produces or consumes a stream of characters. The printer and the 
keyboard, for example, are non-block-structured. The table below 
illustrates the reserved volume names uoed to refer to non-block- 
structured devices, the 'unit number' associated with each device, and 
the unit numbers associated with the system (booted) disk and any 
alternate disks. 



Page 7 



Unit Number 



Volume ID 



Description 



1 

2 
3 
4 
3 

6 ■ 

8 

9-12 



CONSOLE: 

SYSTERM: 

CRAPHIC: 
•Cvolune name>: 
<volume name>: 

PRINTER. 

REMOTE: 
Cvolume namc>: 



screen and keyboard with echo 
screen and keyboard without echo 
the graphic 'side' of the screen 
the system disk 
the alternate, disk 
the line printer 
additional peripherals 
additional disk drives 



FIGURE 1 



1.2.3 THE 'WORKFILE' 

The workfile is a temporary copy of the file being modified. 
It is used by the Filer, in the Editor, and by the Compiler. When the 
text part of a workfile is changed, the system stores it on disk under 
the name '^SYSTEM. WRK. TEXT', and when a code version is first created, 
it is named '* SYSTEM. WRK. CODE'. 



1. 2. 4 FILE SPECIFICATION 



Many Filer commands require the user to respond with at least 
one file specification. The diagram below illustrates the eyntax of 
file specification. 



<fl\e specification 



r-0-i 



-*(volune ID V — ?f string j- 



©T^e v ;>r0 





FIGURE 2 



Paga 8 



Volume i. d. syntax can be expanded thusly 



<vo\une ID> 




1 >f vo Inane j ' 



FIGURE 3 



Volume names for block-structured volumes can be arbitrarily 
assignod by the user. A volume name must be 7 or less characters long 
and miy not contain '*'» '%', '?' or '# '. Reserved volume names for 
non- block-structured devices are given in Figure 1. The character '*' 
is the volume ID of the 'system disk'* the disk upon which the system 
uas booted. The character ': '» when used alone, is the volume ID of the 
'default disk'. The system disk and default disk av equivalent unless 
the default prefix (see material on P(refix) has been changed. '#<unit 
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numb.r>' i, equivalent to th. name of the volume in the drive at that 

« i me. 

for *h- ^l* 9 ? 1 * ilima<n ° c * n con*iit of up to 13 characters. In order 

dItI till I It FUn th * laSt 5 cha ^cters must be .TEXT. .CODE, OR 

ihe workf il.°*« h ^ 8U 7 ixes th * fil " ■*« «>e executed but not put in 

the workfile to be run. Lower-cast letters will be translated 

*!!J! P i? r ~x??*' a " d blanks *" d non-printing characters will be removed 
from the filename. Legal characters for filenames am the 
aiphanumerxcs and the special characters '-', '/', '\ '. ' ', «nd ' ' 
These special characters may be used to indicate hierarchic 

I! H?i2 nShi SV m ° ng fileB and/or *° distinguish several related files 
Of different types. 

WARNING: The I.SFilir will not be able to access filename, containing 
the characters '*', <: ', <»', < 7 <, and ,, ,. „ fil „ frofn prtvious 9 



versions of the system contain these characters, then they should b 
removed before attempting to use those files with the 1.3 System. 



e 



The wildcard characters. '«' and '?', are used to specifu 
li?*j!?J * the directory. The Filer performs the requested action on 
III .in! i. ?S specifications. A file specification containing 
the subset-specifying string 'DOC-TEXT' notifies the Filer to perform 
nJr! ,llU ! ! action on all files whose names begin with the string 
DOC and end with the string 'TEXT'. If a '? ' is used in place of an 
♦I ' <Z) ! r re * uests verification before affecting each file meeting 
the specified criteria. Either or both, strings may be empty. For 
example, a subset specification of the form '«<string>' or '<string>-' 
or even '*' is valid., This last case, where both subset- specifying 
■strings are empty, is interpreted by the Filer to specify every file on 
the volume, so typing '«' or '?' alone causes the Filer to perform the 
appropriate action on every file in the directory. 

Given an example directory for volume MYDISK: 

NAUGHTYDITS 6 23-Jun-34 

MOLD. TEXT 4 29-Jun-34 

USELESS. CODE 10 19-May-54 

MOLD. CODE 4 29-Jun-54 

NEVERMORE. TEXT 12 5-Apr-54 

COONS 3 lO-Sep-32 
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EXAMPLE: 

Prompt: Remove what -File? 



Response: Typing 'N=' generates • the message: 

MVDISK: NtoUGHTYBITS removpd 
MYDISK: NEVERMORE. TEXT removed 
Update directory? 

(At this point the user can type 'Y' to remove or 
type 'N', in which case the files will not be 
removed. The Filer always requests verification 
on any wildcard removes. ) 

Typing 'N?' generates the message: 
Remove NAUGHTYBITS: ? 

After the user types a response! the Filer asks: 
Remove NEVERMORE. TEXT: ? 
EXAMPLE: 

Prompt: Dir listing of what vol ? 

Response: Typing '«TEXT' causes the Filer to list 

MOLD. TEXT 4 29-Jun-54 
NEVERMORE. TEXT 12 5-Apr-54 

The subset-specifying strings may not 'overlap'. For example, 
GOON*«NS would not specify thr file GOONS, whereas G00N«5 would 
be a valid <«lthou£h pointless) specification. 

The siie specification information is predominant ly useful in 
the eonnands Transfer section 1.2.5.11 end M<ake section 1.2.5.17. 
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1. 2. 5 COMMANDS AND USE 

Type "F" at the Command level to enter the Filer and the 
following prompt is displayed: 

Filer: G<et, Si*v, U<hat, N(ew. L(dir, RCem. CChng, TCrans, DCate, CKuit 

Typing '?' in response to this prompt displays more Filer commands: 

Filer: B(ad-biks. E<xt-dir. K(rnch, M(ake. P<refix, V(ols. X(amine, Z(ero 



. .^ The individual Filer commands are invoked by typing the 
letter found to the left of the parenthesis. For exam"., 
'S' would invoke the Save command. 

othB , *" *f\! F il^' answering a Yes/No question with any character 

th. « to liJVl tlt y t " 1 * ; No ' an * w ^. Typing an <esc> will return 
une user to the outer level of the Filer. 

#4i. F ?I/*flf command squiring a file specification, refar to the 
«.ciJ!rlJJi«*? ; ia9Tafl ' (F iSure 2). In many cases, the entire file 
fill AlrilirA necessary, and in some cases, certain parts of the 

"J^M?™ I !? " arB n0t Valid ' Se * th# "quired command in the 
following section. 

.,«.,> « Whenever a Filer command requests a file specification, the 
user may specify as many files as desired, by separating the file 
specifications with commas, and terminating this 'file list' with a 
!!!!!< */? tUrn ' Co ' Iunand « operating on single filenames will keep 
lit i««. i !2* ffl(, i fr ° m the file list and "Plating on them until there 
!I! ?? left Commands operating on two filenames (such •% C(hange 

™M ? take fil * names in pairs and «P«r«ta on each pair 
until only one or none remains. If one filename remains, the Filer 

It iK Pr ? mP ! 11 the second «««*»r ^ the pair. If an error is detected 
in the list, the rest of the list will be flushed 
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The entire file spec if ieation is not necessary. If the volume ID is 
not given, the default disk is asr.umed. Wildcards are not allowed/ 
and the size specification option is Ignored. 

Given the example directory: 

FILERDDC2. TEXT 
A. OUT. CODE 
F5. TEXT 
ABSURD. TEXT 
HYTYPER. CDDE 
STASIS. TEXT 
LETTER 1. TEXT 
ASSEM. DOC. TEXT 
FILER. DOC. TEXT 
STASIS. CODE 



EXAMPLE: 



Prompt: Get what file? 

Response: STASIS 

The Filer responds with the message 

'Text and Code file loaded' 

since both text and code file exist. Had the user typed 
'STASIS. TEXT' or 'STASIS. CODE '. the result would have been the 
same - both text and code versions would have been loaded. In 
the event that only one of the versions exists* as in the case 
of A. OUT* thrn that version would be loaded* regardless of 
whether tsxt or code was requested. Typing 'A. OUT. TEXT' in 
response to the prompt would generate the message: 'Code file 
loaded '. 
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Saves the workfile under the filename specified by the user. 

The entire file specification is not necessary. If the volume ID is 
not given, the default disk is assumed. Wildcards are not allowed, 
and the site specification option is ignored. 

EXAMPLE: 

Prompt: Save as uihat file? 

Response: Type a filename of 10 or less characters, observing 
the filename conventions in section 1.2.4 'FILES' . This 
causes the FILER to automatically remove any old file having 
the given name, and to save the workfile under that name. For 
example, typing "X"in response to the prompt causes the 
workfile to be saved on the default disk as X. TEXT. If a 
codePile has been compiled since the last update of the 
workfile. that codefile will be saved as X. CODE. 

The FILER automatically appends the suffixes .TEXT and .CODE to 
files of the appropriate type. Explicitly typing AFILE. TEXT in 
response to the prompt will cause the FILER to save this file 
as AFILE. TEXT. TEXT Any illegal characters in the filename 
will be ignored* with the exception oF ':'. If the file 
specification includes volume id. the Filer assumes that the 
user wishes to save the workfile on another volume. For 
example, typing: 
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RED: EYE 

in response to 'Save as what file?' will generate 

Prompt: Would you like EYE. TEXT written to RED: ? 

RED: EYE constitutes a file specification, and a 'Y' answer to 
this prompt will cause the Filer to attempt a transfer of the 
workfile to the specified volume and file, (see section 
I. 2. 5. 11 T(ransfer. ) 



Clears the workspace (workfile). 

No file specifications allowed. 

If there is already a workfile present* the user is prompted: 

Prompt: Throw away current workfile? 

Response: # Y' will clear the workfile while 'N' returns the 
user to the outer level of the FILER. 

If <workfile name>. BACK exists, then the user is prompted: 

Prompt: Remove <workfile name>. BACK ? 

Returns the user to the outermost command level. 
No file specification allowed. 

Identifies the name and state (saved or not) of the workfile. 
No file specification allowed. 



Lists volumes currently on-line, with their associated unit 
(device) numbers, 
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No file specification allowed. 
A typical display would be: 



Volumes on-line: 

1 CONSOLE: 

2 SYSTERM: 

3 GRAPHIC: 

4 ♦ MYDISK: 
6 PRINTER: 

8 REMOTE: 

9 • BIG: 

Prefix is - MYDISK: 



The system or "boot-disk" volume's name is preceeded by a '#'. 

The system volume is the default volume unless the prefix (see 
P(refix) has been changed. Block-structured devices mv indicated 
by '♦' or '#'. 



Lists a disk directory* or some subset thereof* to the volume and 
file specified (default is CONSOLE: ). 

The user may list any subset of the directory* using the 'wildcard' 
option* and may also write the directory* or any subset thereof* to 
a volume or filename other than CONSOLE. File specification will 
therefore be discussed in terms of source file specification and 
destination file specification. 

8ource file specification consists of a mandatory volume ID. and 
optional subset-specifying strings* which may be empty. If subset- 
specifying strings 9Ttt used* then one of the wildcard characters 
must be used. A string (for example* the full filename 
STASIS. TEXT) may not be used as part of the source file 
specification unless a wildcard character is used! 

Source file information is separated from destination file 
information by a comma ('*'). 

Destination file specification consists of a volume ID* and* if the 
volume is a block-structured device* a filename. File size 
specifications will be ignored. 

The most frequent use of this command is to list the entire directory 
of a volume. The following display* which represents a complete 
directory listing for the example disk MYDISK* would be generated 
by typing any valid volume ID for MYDISK (see Figure 2) in response 
to the prompt* 
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2a 


l-Sep-78 


10 


l-Sop-78 


8 


1 -Sep -78 


4 


1 -Sop -78 


12 


l-Sep-78 


8 


l-Sep-78 


ie 


l-Sep-78 


20 


l-Sep-78 


24 


l-Sep-78 


6 


l-Sep-78 



Dir listing of what vol' 

MVDI5K: 

FILERDDC2. TEXT 

A. OUT CODE 

F5. TEXT 

AES'JRD 

HYTVPER. CODE 

STASIS TEXT ' 

LETTER 1. TEXT 

AS3EMDDC. TEXT 

FILERD0C1. TEXT 

STASIS. CODE 

10/10 files <listed/in-dir>, 130 block* used, 364 unused 

(The bottom line of the display informs the user that 10 files out 
of 10 files on the disk have been listedi that 130 disk blocks 
have been used, and that 364 disk blocks remain unused. > 

EXAMPLE: 

L<dir transaction involving wildcards: 

Prompt: Dir listing of what vol 7 

User response: #4: FIL-TEXT 

generates the following display: 

MYDISK: 

FILERDDC2. TEXT 28 l-Sep-78 

FILERD0C1. TEXT 24 l-Sep-78 

2/10 files <listed/in-dir>, 52 blocks used. 364 unused 



EXAMPLE: 



L(dir transaction involving writing the directory subset to a 
device other than CONSOLE: 

Prompt: Dir listing of what vol ? 

User response: ♦FIL-TEXT, PRINTER: causes 

MYDISK: 

FILER DOC 2 TEXT 28 l-Sep-78 

FILERDOCl. TEXT 24 l-Sep-78 

2/10 files Clisted/in-dir>. 52 blocks used, 364 unused 

to be vnxitttn to thz PfilntQA. 
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,^ 



K' 



< 



EXAMPLE: 

hJnrl *" ni ; et4 ;n Evolving writing the directory subset to a 
block-structured device: 

Prompt: Dir listing of what vol ? 

User response: #4: FIL-TEXT, #5: TRASH creates the file TRASH on 
the volume associated with unit 5. TRASH would contain: 

MYDISK: 

FILERD0C2. TEXT 28 l-S°p-78 

FILERDOC1. TEXT 24 l-Sep-78 

2/XO files <Hsted/in-dir>. 32 blocks used, 364 unused 



Lists the directory in more detail than the L(dir command. 




MYDISK: 
' FILERD0C2. TEXT 
A. OUT. CODE 
F5. TEXT 
<UNUSED> 
ABSURD 

HYTYPER. CODE 
STASIS. TEXT 
LETTER 1. TEXT 
ASSEMDOC. TEXT 
FILEP20C1. TEXT 
STASIS. CODE 
<UNU3ED> 



. 28 


l-Sep-78 


6 


312 


Textfile 


10 


l-Sep-78 


34 


312 


Codef ile 


8 


l-Sep-78 


44 


312 


Textfile 


10 




32 






4 


l-Sep-78 


62 


312 


Dataf ile 


12 


l-Sep-78 


66 


312 


Codef ile 


8 


l-Sep-78 


78 


512 


Textfile 


18 


l-Sep-78 


86 


512 


Textfile 


20 


l-Sep-78 


104 


512 


Textfile 


24 


l-Sep-78 


124 


512 


Textfile 


6 


l-Sep-78 


148 


512 


Codef ile 


334 




154 







10/10 files <listed/in-dir>. 130 blocks used. 364. unused. 354 in largest area 



Changes file or volume name. 

This command requires two file specifications. The first of these 
specifies the file to be changed, the second, to what it will be 
changed. The first specification is separated from the second 
specification by either a <ret> or a comma (','). Any volume ID 
information in the second file specification is ignored, since 
obviously the 'old file' and the 'new file' are on the same volume' 
Size specification information is ignored. 
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Given the example file F3. TEXT, residing on the volume occupying unit 5: 

Prompt : Change what file? 

User Response: #5: F5. TEXT. HOOHAH 

changet the name in the directory from 'F5. TEXT' to 'HOOHAH'. 
Although filekinds are originally determined by the filename* 
the C(hange command does not affect the filekind. In the above 
can. HOOHAH mould still be a text file. However, since the 
G(et command searches for the suffix '.TEXT' in order to load a 
text file into the workfile. HOOHAH would need to be renamed 
HOOHAH. TEXT in order to be loaded into the workfile. 

Wildcard specifications art legal in the CChange command. If a 
wildcard character is used in the first file specification, then a 
wildcard must be used in the second file specification. The subset-* 
specifying strings in the first file specification are replaced by 
the analogous strings (henceforward called replacement strings) 
given in the second file specification. The Filer will not change 
the filename if the change would have the effect of staking the 
filename too long (>15 characters). Given a directory of example disk 
NOTSANE: containing the files: 

POEMS. TEXT 
MAUNDER. TEXT 
MALPRACTICE 
MAKELISTS. TEXT 

EXAMPLE: 

Prompt : Change what file? 

User response: NOTSANE: MA«TEXT. XX=GAACK 
causes the Filer to report 

NOTSANE: MAUNDER. TEXT changed to XXUNDER. CAACK 
NOTSANE: MAKEL I STS. TEXT changed to XXKELISTS. GAACK 
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Th« sub««t-sp«cif V ing string* may b. . mpt y, as may the replacement 
strings. The Filer considers the fil. specification '«' (where both 
subset-specifying strings ere empty) to specify every file on the 
ais*. Responding to the C(hange prompt with '*, Z-Z' would cause everu 
filename on the disk to have a 'Z' added at front and back. 

?!! P ! n ?i? 9 , *?-,***• prompt wlth 'Z-Z.-' «ould replace each terminal 
and initial 'Z' with nothing. Given the filenames: 



THIS. TEXT 
THAT. TEXT 



EXAMPLE: 




Prompt : Change what file? 
User Response: T»T, ■ 

The result would be to change 'THIS. TEXT' to 'HIS TEX', 
and 'THAT. TEXT' to 'HAT. TEX'. 



The volume name may also be changed by specifying a volume ID 
to be changed, and a volume ID to change to. 



EXAMPLE: 



Prompt : Change what file? 

User Response: NOTSANE: , WRKDISK: 

generates the message, NOTSANE: changed to WRKDISK: 



Removes file entries from the directory. 

This command requires one file specification for each file the user 
wishes to remove. Wildcards are legal. Size specification 
information is ignored. Given the example files (assuming that theu 
*v on the default volume): 

AARDVARK. TEXT 
ANDROID. CODE 
QUINT. TEXT 
AMAZING. CODE 



EXAMPLE: 



Prompt: Remove what file? 

User Response: AMAZING. CODE 

removes the file AMAZING. CODE from the volume directory Note 
To remove SYSTEM. WRK. TEXT and/or SYSTEM. WRK. CODE the N(ew 
command should be used, or the system may get confused 
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EXAMPLE: 



A* noted before, wildcard removes are legal. 

Prompt: Remove what file? 

User Response: A*CODE 

causes the Filer to remove AMAZ INC. CODE and ANDROID. CODE. 
WARNING: Remember that the Filer considers the file 
specification '«' (where both subset- specifying strings mtb 
empty) to specify every file on the volume. Typing an '«' alone 
will cause the Filer to remove every file on your directory!! 
Fortunately, before finaliring any wildcard removes, the Filer 
prompts the user with 

Prompt: Update directory? 

Response: Y' causes all specified files to be removed. 'N' 
returns the user to the outer level of the Filer without any 
removes having occurred. 



« 



Copies the specified file to the given destination. 

This command requires the user to type two file specifications, one 
for the source file, and one for the destination file, separated 
with either a comma or <ret>. Wildcards *re permitted, and size 
specification information is recognized for the destination file. 

Assume that the user wishes to transfer the file FARKLE. TEXT 
from the disk MYDISK to the disk BACKUP. 

EXAMPLE: 

Prompt: Transfer what file ? 

User Response: MYDISK: FARKLE. TEXT 
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Prompt: To where? 

(Note: On a one-drive mac hint, do NOT rinovt your sourci disk 
until you art prompted to insert the destination disk) 

Usar Response: BACKUP: NAME. TEXT 

Prompt: Put in BACKUP: 

Type <space> to continue 

The user s&puld remove the sour o dis k, insert the destination 
_disk and type a <s pa cs>. I he Filer Jhmn notifies the user: 

MYDISK: FARKLE. TEXT transferred to BACKUP : NAME. TEXT 

The Filer has made a copy of FARKLE and has written it to the 
disk BACKUP giving it the name NAME. TEXT. If the specified 
file is large, the user may be prompted to alternately insert 
the source and destination disks until the transfer is 
completed. 

It is often convenient to transfer a file without changing the name, 
and without retyping the file name. The Filer enables the user to 
do this by allowing the character '*' to replace the filename in the 
destination file specification. In the above example, had the user 
wished to save the file FARKLE. TEXT on BACKUP under the name 
FARKLE. TEXT, she could have typed: 

MYDISK: FARKLE. TEXT, BACKUP: » 

WARNING: Please try to avoid typing the second file specification 
with the filename completely omitted! For example, a response to the 
Transfer prompt of the form: 

MYDISK: FARKLE. TEXT, BACKUP: 

generates the message: 

Possibly destroy directory of BACKUP: ? 

'Y' answer causes the directory of BACKUP to be wiped out! 

Files may be transferred to volumes that »v not block structured, 
such as CONSOLE: and PRINTER:, by specifying the appropriate volume 
ID (see Figure 1) in the destination file specification. A file 
name on a non- block-structured device is ignored. It is generally 
a good idea to make certain that the destination volumeis on-line. 
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EXAMPLE: 



Prompt: Transfer what file? 

User Rttponti: FARKLE. TEXT 

Prompt: To where? 

User Response: PRINTER: 

causes FARKLE. TEXT to be written to the printer. 

The user may also transfer from non-block-structured device*, 
providing they are input devices. Filenames accompanying a non- 
block-structured device ID are ignored. 




EXAMPLE: 



Oiven the volume MYDISK containing the files PAUCITY* PARITY and 
PENALTY, and the destination ODDNAMZ: 

Prompt: Transfer what file? 

User Response: P-TY, ODDNAMZ : V«S 

would cause the Filer to reply: 



MYDISK: PAUCITY 
MYDISK: PARITY 
MYDISK: PENALTY 



transferred to ODDNAMZ: VAUC IS 
transferred to ODDNAMZ: VARIS 
transferred to ODDNAMZ: VENALS 



Using '»' as the source filename specification will cause the Filer 
to attempt to transfer every file on the disk. This will probably 
overflow the output buffer. (There are easier ways to transfer 
whole disks. If you wish to do this, please refer to the material 
in this section on volume- to- volume transfers. > 
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Sill!* % a * J h V destin *tion filename specification will have the 
«Irfi^I*r ,P <l"J the * ub "*-«P»cif«in B string* in the source 
lilt. '!<" " h no f hin 9' A bri «' remxnd.r: < ? < may be used in 

Hill 1 .J * °" ly difference *« that ' ? ' c«u.«s the user to be 

asked for verification before the operation is performed. 

«!iJ! "" i! transferr » d ^om a volume to the same volume by 
specifying the same volume ID for both source and destination file 
specifications. This is frequently useful when the user wishes to 
relocate a file on the disk. Specifying the number of blocks 
desired will cause the Filer to copy the file in the first-,,, 

area of at least that size. If no size specification is 
given, the file is written in the largest unused area *\ tlcmtxon i% 

If the user specifies the same filename for both source and 
destination on a same-disk transfer, then the Filer rewrites the 
file to the size-specified area, and removes the older copy. 

EXAMPLE: 

Prompt: Transfer what file? 

User Response: #4: QUtZZES. TEXT, #4: QUIZZES. TEXTC203 

causes the Filer to rewrite QUIZZES. TEXT in the first 20-block 
area encountered (counting up from block 0) and to remove the 
previous version of QUIZZES. TEXT. 



WARNING: Wildcard-type specifications do not always work very well 
on same-disk transfers. The results tend to be unpredictable, so 
tnese operations are not recommended. 



It is also possible to do entire volume-to-volume transfers. The- 
file specifications for both source and destination should consist 
of volume ID only. Transferring a block-structured volume to 
another block- structured volume causes the destination volume to be 
wiped out so that it becomes an exact copy of the source volume. 

Assume that the user desires an extra copy of the disk MYDISK: and 
is willing to sacrifice disk EXTRA: 

EXAMPLE: 

Prompt: Transfer what file? 

User Response: MYDISK: , EXTRA: 

Prompt: Possibly destroy directory of EXTRA: ? 
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WARNING: There's no 'possibly' about this! If tht user type* 
'Y'i the directory of EXTRA: ui 1 1 be destroyed! An 'N' 
response will return the user to the outer level of the Filer, 
and a 'Y' will cause EXTRA to become an exact copy of MYDISK. 
Often this is desirable for backup purposes* since it is 
relatively easy to copy a disk this way. and the volume name 
can be changed (see C(hng) if desired. 

Although it is certainly possible to transfer a volume (disk) to 
another using a single disk-drive* it Is a fairly tedious process* 
since the in-core transfer reads up the information in rather small 
chunks* and a great deal of disk juggling is necessary for the 
complete transfer to take place. 



Lists current system date, and enables the user to change the date. 

Prompt: Date Set: CI. . 31>-<JAN. . DEC>-<00. . 99> OR <CR> 
Today is 19-Aug-78 
New date? 

The user may enter the correct date in the format given. After 
typing <ret>, the new date will be displayed. Typing only a return 
does not affect the current date. The hyphens are delimiters for 
the day* month and year fields* and it is possible to affect only 
one or two of these fields. For example, the year could be changed 
by typing ' — 79', the month by typing '-Sep', etc. The entire month- 
name can be entered* but will be truncated by the Filer. Slash 
('/') is also acceptable as a delimiter. The most common input will 
be a single number, which will be interpreted as a new day. For 
example* if yesterday was the 19th of August* the user would want to 
type D20<ret>, which would have the desired effect of changing the 
date to the 20th of August. The day-month-year order is inviolate* 
however. 

This date will be associated with any files saved during the current 
session and will be the date displayed for those files when the 
directory is listed. 



Changes the current default to the volume specified. 

This command requires the user to type a volume ID. An entire file 
specification may be entered, but only the volume ID will be used. 
It is not necessary for the specified volume to be on-line. 
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To determine the current default ««!„«. 4 l 

prompt with ': '„ wrr * n * ot «'« u ** volume, the us.r may respond to the 



Scan* the disk And detects bed blocks. 

Prompt: Bad blocks seen of what vol? 
Response: <volume ID> 



tHl C i» m h* Ch l l ° Ck .° n the lnd *«t.d volume for errors end li 



sts 

d or 




Je'on"??*^ re<lUlr " th » ««• *• *W • volume ID. The volume must 
EXAMPLE: 

Prompt : Examine blocks on what volume? 
Response : Cvolume ID> generates the 
Prompt: Block number-range ? 

l"nt.r 5 th. S K? Ul ? KaV ! JUSt d0n * * bad block * ca "' «nd should 
enter the block number(s) returned by the bad block scan I* 
«ny files are endangered, the following prompt , UwlSw.." 

Prompt: File<s) endangered: 
<filename> 
Try to fix them? 

Response: *Y< will cause tht FILER to examine the blocks and 

return either of the messages- 
Block <bloc It-numb er> may be ok 



Page 26 



In which case tht bad block hat probably been fixed* or 
Block <block-number> it bad 

in which case the FILER will offer the user the option of 
marking the block(s) BAD. Blocks which are marked BAD will 
not be shifted during a K<runch. and will be rendered 
effectively harmless. 

An 'N' response to the 'fix them?' prompt returns the utir to 
the outer level of the FILER. 

WARNING: A block which is 'fixed' may contain garbage. 'Hay be 
ok' should be translated as 'is probably physically ok'. 
Fixing a block means that the block is read, is written back 
out to the block and is read again. If the two reads *tb the 
same, the message is 'may be ok'. In the event that the reads 
mre different, the block is declared bad and may be marked as 
such if so desired. 



Moves the files on the specified volume so that unused blocks are 
combined at the 'end' of the disk. 

This command requires the user to type a volume ID. The specified 
volume must be on-line. It is strongly recommended that the user 
perform a bad block scan of the volume before KCrunching in order to 
avoid writing files over bad areas of the disk. If bad blocks are 
encountered, they must be either fixed or marked before the K(runch 
(see eX(amine). 

As each file is moved/ its name is reported to the console. If 
SYSTEM. PASCAL is moved, the system must be reinitialized by 
bootstrapping. Do not touch the disk, the boot-switch or the disk- 
drive door until K(runch tells you it has completed its task. 



EXAMPLE: 



Prompt : Crunch what vol? 

Response : Cvolume ID> 

causes Filer to prompt with: 

Prompt : Are you sure you want to crunch Cvolume ID>? 
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thI P u^ : f /Y ^ ir,it i ate ? th * K(runch - T «Pi"fl *" 'N' will return 
the user to the outer level of the FILER. 



Creates a directory entry with the specified filename. 

' 2?}!!,! 7 a !! d re ; uir€s th « «•«• *° *YP« a file specification. 

aoiinn ?. I* I* T? !I ? * llow » d - The file size specification 
option ii extremely helpful, since, if it is omitted, the Filer 

£I! a !?\ T ! PeCified file b * co "*^infl the largest unused area of 
liln It - ," ! ile 5lle iS det "™i n «< N following the filename 
with the desired number of blocks, enclosed in square brackets 
t and 3'. Some special cases am: 

C03 - equivalent to omitting the size specification. The file is 
crtated in the largest unused area. 

C»3 - the file is created in the second largest ava. or half the 
largest area, whichever is larger. 

EXAMPLE: 

Prompt : Make what file? 

Response : MYDISK: FARKLE. TEXTC283 

Creates the file FARKLE. TEXT on the volume MYDISK: in the first 
unused 2S-block area encountered. 



irretriev **" sp * cifi,ed v °l^n»- The previous directory is rendered 
EXAMPLE: 

Prompt: Zero dir of what vol ? 
Response: <volume ID> 
Prompt: Destroy -Cvolume name> ? 
Response: A 'Y' response generates 
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Prompt: Duplicate dir *? 

Response: If a 'Y' is typed, th&n a duplicate directory will be 
maintained. This is a-lvisable because, in the event that the 
disk directory is destroyed, a utility program called 
COPYDUPDIR can use the duplicate directory to restore the disk. 

Prompt; -Ccurrent number of blocks on disk> blocks ? 

Response: 'N' generates 

Prompt: # of blocks ? 

Response: User will type number of blocks desired. The table 
following this section gives the correct number of blocks for 
several types of disks. 

'Y' generates 

Prompt: New vol name ? 

Response: User types any valid volume name. 

Prompt: <new volume name> correct ? 

Response: 'Y' causes the Filer to respond with the message: 

<new volume name> zeroed 



MACHINE 



DISK TYPE 



« OF BLOCKS 



Terak J Single-density soft-sectored 8" floppy J 494 



J 

.Northwest ! 
Micro J 




Zilog J 


North Star ! 


DEC ! 



» 

Double-density soft-sectored B M floppy I 1102 

I 
! 



RK05 - per ptntteA 



Coo 



' 5 ft, [-fan Am* d-r*". 






Single-d?n*si ty hard-sectored B H floppy 5 608 



Double-density hard-sectored 5 1/4" floppy! 167 



i 4872 



Page 29 






C*v— 






^ 



Page 30 



**»*<*« ***«-ft**^ »*#*** **..!,*.* *.* #)MMt «*»«** ».*#*# 

* SCREEN ORIENTED EDITOR * # Section 1.3. 1 * 

Version 1.5 September 1978 

«* «... *J h \! i " trod "ctio^« which describes the idea behind the Editor, 
is the first of four sections. The second section is a tutorial for 
the novice. While the Editor is designed to handle any files, the 
tutorial section uses a sample program to demonstrate how to use the 
most basic commands to modify a file. The third section contains a 
detailed description of each command, with examples, and the fourth is 
for quick reference. " 

THE CONCEPT OF A 'WINDOW INTO THE FILE 




THE CONCEPT OF A CURSOR 



The cursor represents the exact position in the file and can be 
used to move to any position. The window shows that portion of the 
file near the cursor. To see another portion of the file, move the 
cursor. Action always takes place at the cursor. Some of the commands 
permit additions, changes or deletions of such length that the screen 
cannot hold the whole portion of the text that has been changed. In 
those cases, the portion of the screen where the cursor stopped is 
displayed. In no case is it necessary for the user to operate on 
portions of the text not seen on the screen, but in seme cases it is 
optional. 

THE CONCEPT OF A PROMPT LINE 

The Editor displays a prompt line as the top line of the screen 
in order to remind the user of the current mode and the options 
available for that mode. Only the most commonly used options appear on 
the prompt line as the following display shoots: 

>Edit: A<djust C(py DOete F(ind Knirt J(mp Rplace Q<oit XCchng 2(ap CE.6 1 

NOTATION 

The notation used in this section corresponds to the notation 
used to prompt the user in the editor. Any input that is enclosed 
between a < and > is requesting that a particular key be used, not that 
the particular word be typed out. For example. CRET> means that the 
return key should Mtypcc at that point. When a particular sequence of 
key strokes is required they will be contained within quotes. For 
example, "FILENAME", CRET> refers to the typed sequence "FILENAME" 
followed by typing the return key." Lower or upper case may be used 
when typir-g Edit/or csiiimands 
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• GETTING STARTED ♦ # Section 1. 3. 2 ♦ 



ENTERING THE WORKFILE AND GETTING A PROGRAM. 

On entering the Editor : 
No workfile is present. File? ( < r .t> for no fil. ) appears. 
There «rt two ways to answer this question : 

strtkwm ' X JiV lth * nam *' f0r •**' n P 1 » u STRINGi <ret>". The file named 
fl«l^ Wl J 1 n ° W be r * tTl * v «*- The file STRING1 could contain » 

Figure 2 I *"* P * rt ° f th * * ilm •PP«*« on the screen. 



PROGRAM STRINGli 
BEGIN 

WRITE< 'TOO WISE'); 

WRITECYOU ARE'); 

WRITELN*', '); 

WRITELN< 'TOO WISE'); 

WRITELNC 'YOU BE') 
END. 



«fc»t.rf 2> TK lth ? < :j turn:> - Thi « implies that a new fil. i, to be 
etarted. The only thing visible on the screen after doing this is the 

in I? 'jlT^t h* ?* W ■"""»• *• «P-n- *nd eurr I , h« nothing 
in it. Type -I- to begin inserting a program or text. 

e.i««« y ?Ei flX *!i«?° ? u#stion * * r « «•*•* i« * workfile already 
IHUIa T "^kfile i, displayed and can be modified or can be 
cleared, in order to start a file, by using the N)ew command in the 
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In order to edit, it is necessary to move the cursor. On the 
keyboard aT9 four keys with arrows, (which may look like triangles), 
which move the cursor. The <up-arrow> moves the cursor up one line, the 
<right-arrow> moves the cursor right one space and so forth. 

The cursor does not like to be outside of the text of the 
program. For example, after the "N" in "BEGIN" in Fig. 2.2 . push 
the <right-arrow> and the cursor moves to the "W" in "WRITE" 
Similarly at the "W" in "WRITE( 'TOO WISE ');", use <lef t-arrow> to move 
to after the "N" in "BEGIN". 



Figure 2. 2 



BEGIN_ 

WRITE ( 'TOO WISE ')* 

BEGIN 

WRITE ( 'TOO WISE '); 



If it is necessary to change the "WRITE( 'TOO WISE ')»" found in 
the third line to a "WRITEC 'TOO SMART Mj", the cursor must first be 
moved to the right spot. 

For example: if the cursor is at the "P" in "PROGRAM STRINQ1; ", 
go down two lines by pressing the down arrow 2 times. To mark the 
positions the cursor occupies, labels a, b, c are used in Fig. 2.3. "a" 
is the initial position of the cursor: "b" is where the cursor is after 
the first <down-arrow>j "c", after the second <down-arrow>. 

Figure 2. 3 

aROGRAM STRING1 

bEGIN 

c WRITEC 'TOO WISE ')i 



Now, using the right arrow, move until the cursor sits on the 
•W M of "WISE". Note that with the use of <down-arrow> the cursor 
appears to be outside the text. Actually it is at the "W" in "WRITE", 
so do not be surprised when on typing the first -Clef t-arrow> the cursor 
jumps to the "R" in "WRITE". 



The Edit level prompt line shows that to Knsrt (insert) an 
item, type "I". The cursor must be in the correct position before 
typing "I". Earlier, the cursor was moved to the "W" in "TOO WISE"; 
now, on typing "I", isn insertion will be made before the "W". The rest 
of the line from the point of insertion will be moved to the right hand 
side of the screen. In the event that the insertion is lengthy, that 
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tu^r-Ii'J 1 ^^ 11 , 1 ** m ° Vtd d0Wn to * ll0{ » room on th « «rtm. After 
typing I" the/following prompt line should appear on the .crtm: 

>Insert: text/ «bi> a char,<del> a line> C<etx> accepts. <e.c> excapeO 

i. ntit 4i!Jl** ; r ° mp ! lln, / fd not a PP e "- «t tha top of the scrifn it 
it not insert mode and a wrong key may have been typed. 

«*« * ,J f th * cur * or *« at th « """• «nd on typing "I- the insert 
prompt line appeared, "SMART- may be inserted by typing those five 
letters. They will appear on the screen as they are typed. 

m * fc Th « r « remains one more important step. The choice at the end 
of the prompt line indicates that pushing the <etx> key accepts the 
insertion, while pushing the <esc> key rejects the insertion and the 
text remains as it was before typing "I". 

Figure 2.4 (Screen after typing "SMART") 



BEOIN WRITECTOO SMART WIS£ t)j 

Figure 2.5 (Screen after <etx>) 



BEGIN 

WRITECTOO SMARTWXSE ')i 



Figure 2.6 (Screen after <esc>) 

BEGIN 

WRITECTOO WISE ">: 



It is legal to insert a carriage return. This is done by 
typing <return> while in the INSERT mode and causes the Editor to start 
a new line. 



The DELETE mode works like the INSERT mode. Having inserted 
the 'SMART' into the STRING1 program and having pushed <etx># 'WISE' 
must be deleted. Move the cursor to the first of the items to delete 
and type "D" to put the Editor into DELETE mode. The following prompt 
linn should appear: 

>Delete: < > <Moving commands} «etx> to delete, <esc> to abort> 

Each time <space> is typtd a letter disappears. In this 
example typing 4 spaces will cause "WISE" to disappear. Now the same 
choice must be made as in insert. Type <etx> and the proposed deletion 
is made or type <esc> and the proposed deletion reappears and remains 
part of the text. 
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It is legal to delete a carriage return. At the end of the 
line, enter DELETE mode, and <space> until the cursor moves to the 
beginning of the next line. 

These »re sufficient commands to edit any file desired. The 
next section describes many more commands in the Editor which make 
editing easier. 







When all the changes and additions have b^en^ad^, ""exit ~the ~~~3 
Editor and "save" a copy of the modified program.' This is done by 
typing "Q" which will cause the prompting display shown in Fig. 2.7. 



Figure 2. 7 



>Quit: 

UCpdate the worlkfile and leave 

£<xit without updating 

R(eturn to the editor without updating 

W(rite to a file name and return 



The most elementary way to save a copy of the modified file on 
disk is to type "U" for U(pdate which causes the workfile to be saved 
as SYSTEM. WRK. TEXT. With the workfile thus saved, it is possibl'e to 
us* the R(un command, provided of course the file is a program. It is 
also possible to use the Stave option in the Filer to save the modified 
file in the library before using the Editor to modify or create another 
file. 

Miscellaneous commands, in the next section, explains in 
greater detail the options available at >Quit. 
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# DETAILED DESCRIPTION OF COMMANDS * * Section 1.3.3 » 



At the Edit level there «r« many options, lomt of which art 
referred to as commands and some as modes depending upon the appearance 
of the prompt . If an option executes a task and returns control to the 
Edit level, that option is called a command. If an option isiues a 
prompt and gives the user another level of options, it is called a 
mode. On entering or returning to the Edit level, the Editor redisplays 
the "Edit:" prompt line. 



Many of the commands allow repeat-factors. A repeat-factor is 
applied to a command by typing a number immediately before issuing the 
command which is then repeated for the number of times indicated by the 
repeat-factor. For example: typing "2 <down-arrow>" wUl cause the 
<down-arrow> commmand to be executed twice, moving the cursor down two 
lines. Commands which allow a repeat-factor assume the repeat-factor 
to be 1 if no number is typed before the command. A '/ ' typed before 
the command implies an infinite number. 



It should be pointed out that the cursor is never really "at*' a 
character. The cursor is only allowed to be -between" characters. For 
instance, if the cursor looks as though it is at the letter "R H , it is 
actually between the letter "R M and the letter in front of it. This is 
noticed most clearly on the insert command as it inserts in front of 
the character the cursor was M at". On the screen the cursor is placed 
"at" "R" to make it easier to display. 



Certain commands av affected by direction. If the direction is 
forward, then they operate forward through the file, that being the 
standard direction of reading English. Backwards is the reverse 
direction. When direction affects the command it is specifically 
noted. 



<down-arrow> 
<up-arrow> 
<right-arrow> 
<lef t-arrow> 
"<" or H , " or 
"> m or ". " or 
<space> 
<back-space> 
<tab> 

<return> 



Moves down 

Moves up 

Moves right 

Moves left 

Changes the direction to backward 

Changes the direction to forward 

Moves direction 

Moves left 

Moves direction to the next position which is a multipl 

of 8 spaces from the left side of the screen 
Moves to the beginning of the next line 
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The arrow, "<" or ">"* in front of the prompt line always 
indicates direction; "<" for backward and ">" for forward. On entering 
the Editori the direction ic forward. The direction can be changed 
bg typing the appropriate command whenever the "Edit:* prompt line is 
present. The period and the comma can also be used because on many 
standard keyboards* ". M is lower-case for ">" and "* " is the lower- 
cast for "<-. 

Repeat-factors can be used with any of the above commands. 

For user convenience, the Editor maintains the column position 
of the cursor when using <up-arrow> and <down-arrow>. When the cirrsor 
is outside the text* the Editor treats the cursor as though it were 
immediately after the last character* or before the first* in the line. 



JUMP mode is reached by typing "J" for J(mp while at the Edit 
level. On entering JUMP mode the following prompt line appears: 

>JUMP: Beginning E(ml M(arker <esc> 

Typing "B" (or "E") moves the cursor to the beginning (or the 
end) of the file* displays the edit prompt line and the first (or last) 
page of the file. Typing M M" causes the Editor to display the prompt 
line: 

Jump to what marker? 

The name of the marker must be entered followed by a <return>. 
The Editor will then move the cursor to the place in the file with that 
name. If the marker is not in the file the Editor will display: 

ERROR: Marker not there. Please press Cspace bar> to continue. 

The instructions for setting a marker are detailed in SET under 
Miscellaneous commands. 




PAGE command is executed by typing "P m while at the Edit 
level. Depending on the direction of the arrow at the beginning of the 
prompt line* PAGE command moves the cursor one whole screenful up or 
down. The cursor always moves to the start of the line. A Oepeat- 
factor> may be used before this command for moving several pages. 



EQUALS command is executed by typing "«" while at the Edit 
level. It causes the cursor to jump to the beginning of the last 
section of text which was inserted* found or replaced from anywhere in 
the file. Equals works from anywhere in the file and is not direction 
sensitive. An INSERT. FIND or REPLACE cause the absolute position of 
the beginning of the insertion, find or replacement to be saved. 
Typing "«" causes the cursor to jump to that position. If a copy or a 
deletion has been made between the beginning of the file and that 
absolute position* the cursor will not jump to the start of the 
insertion as that absolute position will no longer be correct. 
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TEXT CHANGING COMMANDS 



insert: T.,t «*,> . e h„,«,.l> . lint> r< . ti> ^^ ^ ^.^ 

•ode b V b««-,p"ing * *1 JJ ?- -!?*I"!! r wlthout l"vi„ fl th. INSERT 
t«p. <del> Th. inIpSt I . T? "• l »*» *"« entire line just typed, 
end «<d. >' I?:.I NSERT Pr< "" pt lln# *"««t.. th... b„ "<bs> a "a," 



,, 2 -»t--'-«f*^. in* 

4u<X and -<d«l> a u ntt 



•r tb. SET «oo. See tn. r " *^ ^n : l,'" , ln Environment section 
option.. * «»ction on th. SET mod. in order to set these 



■J^A 






between th^t,^^ th * Edltor forc " * U i"«*tion. to b. 

<r*tu^n>^Mi S *!.* left mar 9 in » b « automatically inserting 
vrexurn^'s between "words'" tuh»n»\s>*> +h_ _..ka. : "*"» 

e>c.eded and bu indent!!! to th! i I.! ? " r »» n ""u" »«• been 
started The Edit!! !«; Left-margin whenever a new line is 

•p.c.'and I h b g ph.n to C b ."i d ; o !d" n,,thlnS *"""" tU ° """ " »•*"•» * 

^.nr.^"''" ^ -"-"-rcontroi.Sb.M^t^;^ WZl l^Z 



crei 



te* fini; H t? lth Aot °- inden * tru.. the following sequence 
tes the indentation shown in Figure 3. 1. H 



"ONE-. <return>, <space>, <space>, "TWO", 
<return>, "THREE", <return>, Cbackspace>, -FOUR"/ 

Figure 3. 1 



0N E un Original indentation 

IJJ° Indentation changed by <space> <space> 



THREE 
FOUR 



<return> causes auto-indentation to level of line above 
<backspace> changes indentation from level of line above 
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Example 2: With Filling Trui (and Auto-indent False) the 
following sequence create* the indentation shown in Figure 3.2: 

"ONCE UPON A TIME THERE- WERE". 

(Very narrow margins have been used for simplicity. ) 

Figure 3. 2 



ONCE UPON A 
TIME THERE- 
WERE 

Level of left 



Auto-returned when next word would exceed margin 
Auto-returned at hyphen / 



margin 



Filling also causes the Editor to adjust the margins on the 
portion of the paragraph following the insertion. Any line beginning 
with the Command character (see SET mode) is not touched when filling 
does this adjustment and that line is considered to terminate the 
paragraph. 

The direction does not affect the INSERT mode, but is indicated 
by the direction of the arrow on the prompt line. 

If an insertion is made and accepted* that insertion is 
available for use in the COPY mode. However* if <esc> is used, there 
is no string available for COPY. 



DELETE mode is reached by typing "D" for "Ddete" while at the 
Edit level. On entering DELETE mode the following prompt line appears: 

>Delete: < > <Moving commands> «etx> to delete. , <esc> to abort> 

In order to delete, the cursor must be in position at the first 
character to be deleted. On typing "D" and entering DELETE, the 
Editor remembers where the cursor is. That position is called the 
anchor. As the cursor is moved from the anchor position using the 
normal moving commands, text in its path will disappear. To accept 
the deletion, type <etx>; to escape, type <esc>. 

When <etx> is typed, the Editor saves everything which was 
deleted for COPY to use; but if Cesc> is typed, the copy buffer is 
empty. 

Example: 

In Figure 3. 3: 

1) Move the cursor to the H E" in END. 

2) Type M < M (This changes the direction to backward) 

3) Type M D M to enter DELETE mode. 

A) Type <ret> <ret>. After the first return the cursor moves to 

before the "W" in WRITELN and "WRITELN( 'TO BE. ' ); "d isappears. After 
the second return the cursor is before the "W" in WRITE and that 
line has disappeared. 

3) Now press <etx>. The program after deletion appears as is shown in 
Figure 3. 4. 
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The two deleted lines have been stored in the copy buffer and 
the cursor hat returned to the anchor position. Now use the COPY 
routine to copy the two deleted lines at any place to which the cursor 
is moved. 



Figure 3. 3 



PROGRAM STRINC2J 

BEGIN 

WRITE ( 'TOO WISE ')i 
WRITELNC 'TO BE. ') 

END. 



Figure 3. 4 

PROGRAM STRING2: 

BEGIN 

END. 



on 
<r 



The <repeat-factor> may also be used to delete several lin«« «« 

w.it-!:^:ri nfl K?i <r ' tU I n> ° r "^ ° th€r ° f th * ""*"» commands w"h I 
epeat-factor> while in delete mode. 




v "•£•**-♦««*«'» *"<* Z-p: If * FIND or a REPLACE is made with a 

llllti liV X - the ?,? A K' ° nl « th * la4t find » ^Placement wi i\l 
rapped. All others will be left as found or replaced. 

u«. vi+^VrZZJ"** d * l€ted b * ««infl **• ZAP command i« available for 
use with the COPY command. 



the Edit T level PY COmm * nd ls **» cut » d *>y typing "C" for C(py while at 

On entering the Copy mode the following prompt line is 
displayed: K **•■« *» 

>COPY: B(uffer F(ile <esc> 

To copy text from another file, type "F" and another prompt 
will appear:. r F 

r 
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j >COPY: FROM WHAT FILECMARKER, MARKERS 




The copy buffer is affected by the following command i: 

th* -•i.iJSf LETE: °" acce P tin B • deletion, the buffer is loaded with 
21*. ?J ? °" ""P 11 ^ from * deletion the buffer is loaded with 
what would have been deleted. *w-»m w»n 

*h* <« 2 >J NSERT: 0" accepting an insertion the buffer is loaded with 
the insertion; on escaping from an insertion the copy buffer "empty. 

the deletion^' " **' ZAP Command i% used th « buffer is loaded with 
laVJEH K U *! er l * °t JJ mlted %iZB M »»en«v.r the deletion As greater 

There is no room to copy the deletion. Do you wish to delete anyway? (y/n> 

EXCHANGE mode is reached by typing "X- while at the Edit level 
On entering EXCHANGE mode the following prompt line app»mr%: 

>eXchange: TEXT «bs> a char* C<esc> escapes; <etx> accepts! 

EXCHANGE mode replaces one character in the file for each 
character of text typed. For example in the file in Figure 3.5 with 
the cursor at the "W" in WISE, typing "X" . followed by typing -SM" 
will replace the "W- with the «S" and then the «I« wl th the ««" leaving 
the line as shown in Figure 3.6 with the cursor before the second "S". 

Figure 3. 5 Figure 3. 6 

WRITE< 'TOO WISE '); WRITE( 'TOO~SMSE~~77 
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nr L....1 ., „?!' ETCh<an ^ d0eS not *"0U, tuning p a , t th» ind of th» Hn» 
PT tuning in a carr T?1 » ^ eturn. ? * ? 



*,,n-H k I t T * 5 th * use of a < r epeat-factor> is valid and must b. 

typed before typing "F" or «R". Th. <repeat-f ac tor> appears in 
brackets on the prompt line. pp xn 




Delimiters: Both delimiters of the string will be the same 

«lll"J«lJr. th!%J n " EPLACE mode the following command is valid and 
win replace the first occurrence of the character "C» with the 
character "3": -<[<,])-. Here «<• and - > - are the delimiters 

The Editor considers any character which is not a 
delimiter.* """*" *° ^ * delimit ^- <space> is a particularly common 




ie arrow 



Literal and Token mode: In Literal mode, the Editor will look 

t7i+*y °ii U r e !; C ! S °! th * tarflet strin 9- X* «ou are in Token mode the 
Editor will look for isolated occurrences of the target string The 
Editor considers a string isolated if it is surrounded by any 
combination of delimiters. For example, in the sentence "Put the book 
in the bookcase.", using the target string -book", literal mode will 
find two occurrences of "book" while token mode will find only one, the 
word "book" isolated by the delimiters <space> <space>. 

<►». «. T ! °**. tok " n mod «' *YP* "T" after the prompt line and before 
the target string; to use literal mode, type "L". The default value 
round in the Environment may be over-ridden by typing "L M or "T" as 
appropriate .JjU^ljnoa>^ so that both 

< i ) and "<'.')" sr9 considered to be ThTrTame—string. 
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The Same option: In both commands typing M S n indicates to the 
Editor that it is to use the same string as used previously. For 
example, typing "RS/<any-str ing>/" causes the REPLACE mode to use the 
previous target string, while typing M R/<any-str ing>/S" causes the 
previous substitute string to be used. 



Jt.-i'-A '.■»:£ 



FIND mode is reached by typing «F" while at the Edit level. On 
entering Find mode one of the prompt lines in Figure 3.7 appears. 

Figure 3. 7 

>FindClD: LCit <target> O 

>FindC13: T(ok <target> O 

The FIND mode finds the n-th occurrence of the <target> string 
starting with the current position and moving in the direction shown by 
the arrow at the beginning of the prompt line. The number "n" is the 
<repeat-factor> and is shown on the prompt line in the brackets "C3". 

Example 1: In the STRING1 program with the cursor at the first 
"P" in PROGRAM STRING1 type -F". When the prompt appears type 
•"WRITE"'. The single quote marks MUST be typed. The prompt line 
should now appear as: 

>FindC13: Dit <target> O'WRITE' 

After typing the last quote mark the cursor jumps to immediately after 
the H E" in the first WRITE. 

Example 2: In the STRING1 program with the cursor at the "E" of 
-END." type: M <" "3" "F". This will find the 3rd (-3") pattern in the 
reverse ( "< M ) direction. When the prompt line appears type /WRITELN/. 
The prompt line should read: 

<FindC33: Dit <target> O/WRITELN/ 

The cursor will move to immediately after the "N" in WRITELN. 
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Figure 3. 8 



PROGRAM STRINGIj 
BEGIN 

WRITECTOO WISE ')> 

WRITE ( 'YOU ARE')* 

211^5^™' <*CURSOR FINISHES IN THIS LINE*) 

WRITELN('TOO WISE '); 
WRITELN( 'YOU BE. ' ) 

END - <*CURSOR STARTS IN THIS LINE*) 



«.k. *4 f*!."!SJ«? : ° n tha firSt find we type "F/WRITE/". This locates 
the first "WRITE". Now typing «'FS" will make the prompt line flash: 

>FindC13: Dit <target> «>S 
and the cursor will appear at the second WRITE. 



REPLACE mode is reached by typing "R" while at the Edit level 
On entering REPLACE mode one of the two prompt lines in Figure 3 9 
appears. In this example* a <repeat-factor> of four is assumed. 

Figure 3. 9 

>ReplaceC4J: L(it V<fy <targ> <sub> -> * 

>ReplactC43: T<ofc V(fy <targ> <sub> ■> 

Example 1: Type -RL/OX//YZ/" which make the prompt line appear as: 

>ReplaceC13: Dit V)fy <targ> <sub> ->L/QX//YZ/ 

This command will change: "VAR S I ZEGX: INTEGER; " to "VAR 
S I ZEYZ: INTEGER; ". Literal mode is necessary because the string QX is 
not a token but is part of the token SIZEGX. 

Example 2: In Token mode REPLACE ignores spaces between tokens 
when looking for patterns to replace. For example, using the lines on 
the left hand side of Figure 3.10 and typing: "2RT/ <',")/. LN. " The 
prompt line should appear as: 

>Replace: Dit V)fy <targ> <sub> »>/('»')/. LN. 

Immediately after the last period was typed those two lines 
would change to those on the right hand side. 
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Figure 3. 10 



WRITEC. ')j 
WRITE( ', '); 



WRITELN; 
WRITELNi 



V>fy: The verify option permits examination of the <targ> 
string (up to the limit set by the repeat factor) and deciding if 
it it to be replaced. The following prompt line appears whenever 
REPLACE mode has found the <targ> pattern in the file and verification 
has been requested: 

>Replace: <esc> aborts, 'R' replaces, ' ' doesn't 

Typing an "R M at this point will cause a replacement while 
typing a space will cause the REPLACE mode to search for the next 
occurrence provided the <repeat-f actor> has not been reached. The 
<repeat-factor> counts the number of times an occurrence is found, not 
the number of times you actually type "R M . Use *'/" as a <repeat-factor> 
in order to replace every occurrence of the target string. Once the 
Editor can no longer find the target string, the prompt: 

ERROR: Pattern not in the file Please press <spacebar> to continue, 
appears. 




ADJUST mode is reached by typing "A" while at the Edit level of 
Command. On entering ADJUST mode the following prompt line appears: 

>Adjust: L(just R(just C(enter Clef t» right. up. down-arrows> «etx> to leave> 

The ADJUST mode is designed to make it easy to adjust the 
indentation. On any line the <right-arrow> and <left-arrow> commands 
move the whole line. Each time a <righ t-arrow> is typed the whole line 
moves one space to the right. Each <left-arrow> moves it one to the 
left. When the line is adjusted to the desired indentation press <etx>. 
After pressing <etx>, <esc> cannot be used. 

In order to adjust a whole sequence of lines, adjust one line, 
then use <up-arrow> (<down-arrow>> commands and the line above (below) 
will be automatically adjusted by the same amount. 

Repeat-factors are valid when used before any of the <arrow> 
commands while in ADJUST mode. 
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ADJUST mode can also center or justify text. Typing "L" while 
in ADJUST mode will cause the line to be left-justified to the margin 
*et xn the Environment. Similarly typing "R" right-justifies to the set 
margin and typing "C" will cause the line to be centered between the 
set margins. Typing <up-arroj(> (or <doun-arrow>> will cause the line 
above (below) to be adjusted to the same specification (left-justified, 
right-justified or centered) as the previously adjusted line. 




MARGIN command is executed by typing "M" while at the Edit 
level. MARGIN is an Environment dependent command, that is, it may only 
be executed when Filling is set to True and Auto-indent is set to 
False. The prompt for the MARGIN command does not appear on the 
*>Edit:" line. 

There are three parameters used by the command: Right-margin, 
Left-margin and Paregraph-roarg in. MARGIN deals with one paragraph and 
realigns the text to compress it as much as possible without violating 
the above three margins. See the Environment option under the SET mode 
for how to set. the margin values. ■■:>;.- 

Example: The paragraph in Figure 3. 13 has been MARGINed with 
the parameters on the left while the same paragraph in Figure 3. 14 has 
been MARGINed with the parameters on the right. 



Left-margin 
Right-margin 72 
Paragraph-margin 3 



Left-margin 10 
Right-margin 70 
Paragraph-margin O 



Figure 3. 13 



This quarter, the equipment is different/ the course materials 
are substantially different, and the course organization is different 
from previous quarters. You will be misled if you depend upon a friend 
who took the course previously to orient you to the course. 



F'igure 3. 14 



This quarter, the equipment is different, the course materials »v 
substantially different, and the course organization is 
different from previous quarters. You will be misled if 
you depend upon a friend who took the course previously to 
orient you to the course. 
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A parajr^rh is defined tc bo southing occurring between two 
blank linos To MAPS IN a paragraph move the cursor to anywhere in that 
paragraph and type "M". When doing an exceptionally long paragraph it 
way take several seconds before the routine is reedy to redisplay the 
screen. 



the 

the 



Portions of the text can be protected from being MARCINed by 
use of the Command character. If the Command character appears as 
first non-blank character in a line then that line is protected 
from the MARGIN command. The MARGIN command treats a line beginning 
with the command character as though it were a blank line, that is. 
will consider that line to terminate (begin) the paragraph. 
Warning: Do not US'? the MARGIN commend when in a line beginning with 
the Command character. 



it 




SET mode is entered by typing "S" while at the Edit level. 

The prompt for the SET command doer not appear on the ">Edit: " prompt 

line due to space limitations. On entering the SET mode the following 
prompt line appears: 

>Set: M(arker Environment <esc> 

M C a r k e r : 



When editing, it is particularly convenient to be able to jump 
directly to certain places in a long file by using markers set in the 
desired places. Once set, it is possible to jump to these markers 
using the M(arker option in the JUMP mode. When in the SET mode* type 
"M" for M(arfcer and the following prompt line appears: 

Name of marker? 

The name may be up to 8 characters followed by a <>eturn>. 
Marker names «re case sensitive so that lower and upper cases of the 
same letter are considered to be different characters. The marker will 
be entered at th£ position of tn? cursor in the te*ti therefore, first 
move the cursor to the desired position before setting the marker. (If 
the marker already existed, it will be reset. ) 



Only 10 markers are 
"SM", the prompt: 



allowed in a file at any one time. If on typing 
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Figure 3. IS 



Marker ovflw. 

Which one to replace. 

0) namel 

1 ) namo2 



9) name 10 



appears, it is necessary to eliminate one in order to replace it 
Choose a number O thru 9, fjpe that nunbtr and that space will now be 
available for use in setting the desired marker. 

.«w 4.u If \ C0?H 0T deletioT * i* **do between the beginning of the file 
J« Jf V°! i° n ° f th# rnar ** r ' th « marker will not subsequently return 
to the desired place as the absolute position has changed 




The Editor enables the user to set the environment which 
, / Se Iw oZI minCS t0 be m05t convenient for the editing being done. 
in the SET mode type M E" for Environment, the screen display is 
replaced with the following prompt shewn in Figure 3. 16 



th« 



When 



Figure 3. 16 



Environment: <options> <etx> or <sp> to leave 
A<uto indent True 
F(illing False 
L<eft margin O 
RCight margin 79 
P(ara margin 5 
C (ommand ch ~ 
T(oken def True ; *^ ; 



7436 bytes used. 12020 available 



Patterns: 

<target;>=» 'xyz'r <Csubst>ss 



.'abc ' 



;^£& ;• . ■■"■ 
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By typing the appropriate letter* any or all of the options may 
be changed. The options shown are the default options for the Editor 
on the Terak 8S1CA. Implementations for other machines way have 
different defaults. 



Auto-indent affects only the INSERT mode of the Editor. Auto- 
indent is set to True (turned on) by typing "AT" and to False (turned 
off) by typing "AF". 




Filling affects the INSERT mode and allows the MARGIN command 
to function. Filling is set to True (turned on) by typing "FT" and to 
False by typing "FF". 

L(eft margin 
R(ight margin 
P(ara margin: 

When Filling is True the margins set in the Environment sv the 
margins which affect the INSERT mode and the MARGIN command. They also 
affect the Center and justifying commands in the ADJUST mode. To set 
the Left-margin, type "L" followed by a positive integer and a <space>. 
The positive integer typed should replace the old value, for the L(eft 
margin in the prompt shown in Figure 3. 16. All positive integers with 
less than four digits are valid margin values. 




The Command character affects the MARGIN command and the 
Filling option in the INSERT mode as described in those sections. 
Change Command characters by typing "C" followed by any character. For 
example typing "C"* *'*" will change the Command character to H * M . This 
change will be reflected in the prompt. 



This option affects FIND and REPLACE. Token is set to True by 
typing "TT" and to False by typing "TF". If Token is True. Token is 
the default and if Token is False. Literal is the default. 
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Edit l«vli V :£ IFY «"»"•"'' i* executed by typing "V" while at the 
!mJVl status of the Editor is verified by displaying the 

Trill SC TI!k THe Edit ° r -"«»P*« ^ adjust the window s2 that the 
cursor is at the center of the screen. 



.„«. < Q «ML m ° d ! iS r * ached *¥ typing «Q" while at the Edit level. On 
•ntering QUIT mode the screen display is replaced by the following 
prompt: " 

Figure 3. 17 

>Qu 1 1 : ' "*" 

Vipd^ta the workfile and leave 
E(xit without updating 

R(eturn to the editor without updating 
W(rite to a file name and return 



One of the four options must be selected by typing U.LR or W. 




, . A1 _ This causes the Editor to writ- the file just modified 
into the workfile and store it as SYSTEM. WRK. TEXT. It is available 
for «ither the Compile or Run options or for the Save option in the 
Filer. The Filer treats SYSTEM. WRK. TEXT as text file 




SYSTPM uIu i Trv? USe ?u the Editor t0 le * ve without making any changes in 
?•; H?i* ' S meanS that amj <™<*i f ications made since entering 
trie Editor are not recorded in the permanent workfile. 




This option returns to the Editor without updating. The cursor 
is returned to the exact place in the file it occupied when "Q" was 
typed. Usually this command is used after unintentionally typing "Q" 



This option puts up a further prompt: 
Figure 3. 18 

>Guit: 

Name of output file (<cr> to return) — > 
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The modified file m.Ty now be written to any file name. If it 
is written to the nsmo of an existing file, the modified file will 
replace the olti file. This command can be aborted by typing <return> 
instead of a file name and return will be to the Editor. After the 
file has been written to disk, the Editor will prompt with the 
following: 



Figure 3. 19 



>Guit 

Writing 

Your file is 1978 bytis long. 

Do you want to EiyJX from or RCeturn to the Editor? 



Typing "E" exits from the Editor and returns to the Command 
level while typing -R- returns the cursor to the exact position in the 
file as when M Q M was typed. 



* REFERENCE SECTION * # Section 1.3.4 * 

<down-arrow> moves <repeat-f ac tor> lines down 

<up-arrow> " •• lines up 

<right-arrow> - « spaces right 

<left-arrow> « •• spaces left 

<space> - •• spaces in direction 

<back-space> " « spaces left 

<tab> moves Crepeat-f actor> tab positions in direction 

<return> moves to the beginning of line -Crepeat-factoO lines in directio 

"<" "» " #, - M change direction to backward 
"> w "• " " + " change direction to forward 

"*'" moves to the beginning of what was just found/replaced/inserted/ 

exchanged 

just: Adjusts the indentation of the line that the cursor is on. Use 
the arrow keys to move. Moving up (down) adjust line above 
(below) by se.T? amount of adjustment on the line you were on. 
Repeat-factors are valid. 

py: Copies what was last inserted /deleted/zapped into the file at 
the position of tho cursor. 



to 



jfl|jjt|e lete: Treats the starting position of the cursor as the anchor. Use 
^"™" *ny moving commands to move the cursor. <etr> deletes 
everything between the cursor and the anchor. 
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* 



|(n " rt: yo" , I*:. r t ;i*n. C " "" <b " k ">"«> •"- «•»> *• r.j-ct part ., 



ump: 



Jumps to the beginning, end or previously set marker. 



f-rgin: Adjusts anything between two blank lines to the margins which 
have been set. Command characters protect text from being 
margined. Invalidates the copy buffer. 

:*g«: Moves the cursor one page in direction. Repeat-factors are 
valxdi direction is applied. 

:uit: Leaves the editor. You may U)pdate, E>xit, W>rite, or R)eturn. 

•place: Operates in LUteral or T(oken mode. Replaces the <taro> 
string with the <subs> string. VCerify option asks you to 
verify before it replaces. "S" option uses the Same string as 
before. Repeat-factors replace the target several times. 
Direction is valid. 

#t: Sets M(arkers by assigning a string name to them. Sets 

Environment for A<uto-indent, F<illing, margins, TCoken, and 
C Command characters. 

•rify: Redisplays the screen with the cursor centered. 

change: Exchanges the current text for the text typed while in this 

mode. Each line must be done separately. <back-space> causes the 
original character to re-appear. 

|*p: Treats the starting position of the last thing 

found/replaced/inserted as an anchor and deletes everything 
between the anchor and the current cursor position. 

<repeat-factor> is any number typed before a command. Typing a / is the 
infinite number. * 



t 
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* L2 EDITOR # # Section 1.3.5 # 

Version I. 5 September 1978 

The L2 Editor is being released on an experimental basis. Not 
all options are yet fully implemented so this section may not be 
complete. The main advantage of this version is that it is able to 
handle files larger than can fit into the main memory buffer at one 
time; the upper limit being determined by the space available on disk. 
It also automatically makes a backup copy of the file being edited. In 
many respects this Editor works exactly as this release and displays 
the same prompt lines. Where the versions are the same* the user Is 
directed to read the main Editor section. 

Entering the Workfile and Getting a Program 

Ifi on typing E. there is not enough room on the diski 

ERROR: Not enough room for backup! 

will be displayed. This disk must then be K(runched in order to 
provide room if that is possible, a file removed or another disk must 
be used. 

The same prompt line is displayed; see section 1.3.2. 

1) With a name. If a file is chosen, a backup copy will be 
made before the file is available for editing. 

Figure 5. 1 



Copying to filename, back. 

>Edit 

Reading. . . . 



After this series of prompt lines, the first part of the text 
will appear on the screen. 

2) With a return. A new file is created in the same manner as 
in section 1. 3. 2. 

The paragraphs on moving the cursor. Insert and Delete in 
section 1.3.2. should be read and *re applicable here. 

Leaving the Editor and Updating the workfile 

When all changes and additions have been made, the Editor is 
exited by typing "Q" and the following prompt is displayed. 

Figure 5. 2 



>Quit: 

U(pdate the workfile and leave 

E<xit (but workfile not updated) 

RCeturn to the Editor without doing anything. 
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Notice that the Writ* n *+■<** 4. -« 1 
these three option* molt be choHn See lilTX* "?"•"•■ 
in taction 1.3.3. cnosen. See also Miscellaneous c 



One of 
ommands 



U(pdate: 

When a new file i. created, the following appear.: 

Figure 5. 3 

Wr i t i n g . ♦ 

I~™!il!:.!f I? !!:"• WRK * TEXTl is n block « lo"fl. 

inf 8 or:a%!on 5 no: 9 g^* : haS *"" ""'• thl « "-P»- •-•• the extra 
Figure 5. 4 

Wr i t i n g . * — — 

The workfil.. •x.-Fl.TEXT, is 44 blocks long. 
The backup file is X:F1. BACK. 



I«!* n ! Wly *! dit * d file is "ftrred to as .TEXT, while the BACK fil. 
contains the original file with no modifications ** 



E<xit: 



existing .back is removed. For examni* <* ei tc-vt • ^ L ... ! 
used, then a codu Fl BArit ,,«ii 1. ! Fl. TEXT is the file being 

RCeturn: 

This is the same. See section 1.3.3. 

MOVING COMMANDS 
JUMP 

case -B« J -nS ?F < 2V!l SPl r , \? h V a<M Pr ° mpt lin * ai ■•♦or.. In this 
b C :nnnfng:e n nd) E of r : h f :%^. the «■•■*"»»■«<•»'> of the buffer not the 

Typing "M" causes the Editor to display: 
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Jump to what marker? 

It is now possible to use 20 markers and these mill be set in 
the same may as in section 1.3.3. To jump to the desired marker, type 
in the name. If the marker is present, the Editor will jump to that 
position, otherwise, the Editor will jump to the last position of the 
cursor in the file. If Find needs to search a section of the file. 

other than the buffer, Leaping will be displayed. 

BANISH 

This is a new command and is reached by typing "B" at the Edit 
level. This is the prompt that will appear: 

>Banish: To the LCeft or R(ight <esc> 

Prior to doing a large insertion or copy/ in order to provide 
more room in the buffer and avoid buffer overflow, it is possible to 
move characters from the buffer into the stack. There is a left and a 
right stack; left being ahead of the cursor and right, behind the 
cursor. The user can make the choice according to the current 
situation. In general, the screen is the boundary for the operation. 
NEXT 

In order to move beyond the bounds of the buffer, type "N". 
The following prompt will then be displayed: 

Next: F(orwards, BCackwards in the file; S(tart, E(nd of the file. <esc> 

Choose one of the five options available. When using "F" or 
"B w , an implicit banish occurs using the cursor as the point of 
reference. For example, when "F" is typed, everything above the top of 
the screen is banished to the left stack. More characters mrtt added to 
the bottom of the screen to extend the buffer in the forward 
direction. When H B" is used the characters below the cursor »rm 
banished to the right stack and part of the screen Willi become blank. 
More characters mre added above the 'window' of the screen. 

Figure 9. 3 SYMBOLIC FILE 



t left stack i 

I Backwards I BUFFER 



I Start ! 



1 


right stack 


1 


1 


Forward 


1 


1 


End 


1 
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PAGE 

See section 1. 3. 3. 
EQUALS 

See section 1. 3. 3. 

TEXT CHANGING COWHANDS 
INSERT 

See section 1.3. 3. 
DELETE 

See taction 1. 3. 3. 
ZAP 

See section 1.3.3. 
COPY 

See section 1. 3. 3. 
EXCHANGE 

See taction 1.3.3. 
FIND 

and 1# ""J " ct *°" 1-3.3. The Editor will display: Finding 

»nd if the pattern is not in the buffer: 

End of buffer encountered. Get more from disk? <Y/N) 

in** *h.°I! iS* 1 "? " V "' th# Editor wi * * »ove another section of the file 
into the buffer to continue searching. Find is still directional 

REPLACE 

See section 1. 3.3. 

FORMATTING COMMANDS 
ADJUST 

See section 1. 3. 3. 
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MARGIN 

See section 1. 3, 3. 

MISCELLANEOUS COMMANDS 

SET ■ . j . 

Set section 1.3.3. The same prompt £ine is displayed. 
Mdrker: 

* . „~* d section 1.3-3. The names of the markers can be seen by 
typing SE" for Set Environment while at the Edit level. To set the 
marker, type "6M«. In the event that 20 markers have already been set. 
this will be indicated by: 

Marker overflow. Which one to replace? <Typ# in the letter or <sp> 
Environment: 

* ^ T ° * et the enviTOr "«ent. type "SE". the following is an example 
of the prompt displayed: 

Figure 5. 5 



Environment: options <etx> or <sp> to leave 
A(uto Indent False 
FCilling True 
L(eft margin 4 
R(ight margin 70 
P<ara margin 1 
C(ommand ch *"* 
S(ct tabstops 
T(oken def True 

11582 bytes used. 2754 available. 



There are O pages in the left stack, and 10 pages in the right stack. 
You have 86 pages of room, and at most 13 pages worth in the buffe-r. 

Markers: 

<P1 P2 >P3 

Created August 15, 1978: Last updated August 15, 1978 (Revision i). 



By typing the appropriate letter, any or all jof the options can 
changed. See section 1.3.3. The arrow before the marker name 
indicates thf relative position of the marker in the file to the 
buffer. No arrow indicates that the marker is in the current buffer 
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It is now possible to vary the tabstaps. T«p« "S" while in the 
environment and the following prompt wilj, appear: 

Sat tabs: Cright. lef t vtctors> C<ol# NCoJRdnht L(sft D(ccimal «top <.tx> 

At present, these arc not yet fully implemented so that the effect of 
using any of them is to have a variable tabstop instead of being set at 
eight characters apart. 

VERIFY 

See section 1.3.3. 
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* YET ANOTHER LINE ORIENTED EDITOR - YALOE * * Section 1. 4 # 
Version 1.5 September 197S 

This text editor is intended for use on systems that do not 
have powerful screen terminals. It is designed to be very similar to 
the text-editor which accompanies DEC'S RT-11 system. 

The editor assumes, but is not dependent on, the existence of 
the workfile text. Upon reading it YALOE will proclaim 'workfile STUFF 
read in'. If it does not find such a file, it will proclaim 'No work 
file read in'. This means that you entered YALOE with an empty 
workfile. From this point you may create a file in YALOE; and when you 
exit by typing 'QU', your workfile will no longer be empty. 

The editor operates in one of two modes: Command Mode or Text 
Mode. In command mode all keyboard input is interpreted as commands 
instructing the editor to perform some operation. When you first enter 
the editor you will be in the Command Mode. The Text Mode is entered 
whenever the user types a command which must be followed by a text 
string. After the command F(ind, ©<et, ICnsert, MCacro define, R(ead 
file, W(rite to file, or eX(change has been typed, all succeeding 
characters arm considered part of the text string until an <tsc> is 
typed. Note: when typed <esc> echoes a '*'. The <esc> terminates the 
text string and causes the editor to re-enter the Command Mode, at 
which point all characters arm again considered commands. 

NOTE: Follow command strings in YALOE with <esc><esc> to 
execute them. (This is unlike the rest of the systems 'immediate' 
commands. ) 

1.4.1 SPECIAL KEY COMMANDS 

Various characters have special meanings, as described below. 
Some of these apply only in YALOE. Many have similar effects in the 
rest of the system; for these the ASCII code to which the system 
responds as indicated can be changed using the program SETUP, described 
in Section 4.3. <<esc> is the most particular anomaly to YALOE.) 

c * sc> Echoes a '*'. A single <esc> terminates a text string 

A double <esc> executes the command string. 

RUBOUT Deletes current line. On hard-copy terminals echoes 

<linedel> 'CZAP' and a carriage return. On others, it clears 
the current line on the screen. In both cases the 
contents of that line are discarded by the editor. 
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CTRL H 
<chardel> 



CTRL X 



CTRL 



CTRL F 
<flush> 

CTRL S 
<stop> 



Deletes character from the current line. On herd- 
copy terminals it echoes a percent sign followed by 
the character deleted. Each succeeding CTRL H the 
by the user deletes and echoes another character. 
An enclosing percent sign is printed when a key other 
than CTRL H is typed. This erasure is done right to 
left up to the beginning of the command string. 
CTRL H may be used in both Command and Text mode. 

Causes the editor to ignore the entire command 
string currently being entered. The editor 
responds with a <cr> and an asterisk to 
indicate that the user may enter another 
command. For example: 

♦IDALE AND 
KEITH<CTRL X> 

A <chardel> would cause deletion of only KEITHi CTRL X 
would erase the entire command. 

Will switch you to the optional character set 
(i.e. bit 7 turned on). This works only on the 
TERAK 8310A. The CTRL is used as a toggle 
between the character sets. NOTE: You may find 
while in the editor that weird characters arw 
showing up on the terminal instead of normal 
ones. It could be because you accidentally 
typed CTRL O. To get back just type CTRL O 
again. 

All output to the terminal is discarded by the system 
until the next CTRL F is typed. 

All output to the terminal is held until another 
CTRL S is typed. 



All other control characters arm ignored and discarded by YALOE. 

1.4.2 COMMAND ARGUMENTS 

A commmand argument precedes a command letter and is used 
either to indicate the number of times the command should be performed 
or to specify the particular portion of text to be affected by the 
command. With some commands this specification is implicit and no 
argument is neededi other commands* however* require an argument. 

Command arguments av as follows: 
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n n stands for any integer. It may be preceded by a ♦ or -. 
If no sign precede* n* it is assumed to be a positive number. 
Whenever an argument is acceptable in a command, its absence 
implies an argument of 1 <or -1 if only the - is present). 

m m is a number 0. . 9. 

O '0' refers to the beginning of the current line. 

/ V means 32700. W means -32700. It is used for a large 
repeat factor. 

■ '«' is used only with the J, D and C commands and 

represents -n, where n is equal to the length of the 
last text argument used, for example *©THIS*«D*» 
finds and removes THIS. 



1.4.3 COMMAND STRINGS 

All EDIT command strings are terminated by two successive <esc>s 
Spaces, carriage returns and tabs (CTRL I) within a command string are ignored 
unless they appear in a text string. 

Several commands can be strung together and executed in 
sequence. For example: 

«B GTHE INSERTED* -3CIN0* 3K OSTRIN0«» 



As a rule* commands are separated from one another by a single 
<esc>. This separating <esc> is not needed, however* if the command 
requires no text. Commands are terminated by a single <esc>> a second 
<esc> signals the end of a command string, which will then be 
executed. When the execution of the command string is complete* the 
editor prompts for the next command with '*'. 

If at any point in executing the command, an error is 
encountered, the command will be terminated, leaving the command 
executed only up to that point. 



1.4.4 THE TEXT BUFFER 

The current version of your text is stored in the Tert Buffer. 
This buffer's area is dynamically allocated; its size and the room left 
for expansion may be ascertained by using the ? command. 
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not have this limitation. Edit ° r ln th# n#ltt m *J or release « in 

1. 4. 4 THE CURSOR 

command U Jl'Sr^rcuird^'lS ^? 10 " i V° Ur *"* •"•" th * ""* 
"pointer" int t T d Buf r Lt°: !*"* *' * h# CUr ™ nt 
respect to th. cursor: ' r ' Most #dit commands function with 

A, B, F,Q,s): Moves it. 

D#K: Remove text from where it is. 

UtltR: Add text to where it is. 

CtX: Remove and then add text at it 

L,V: Print the text on the terminal' from it. 

1. 4. 5 INPUT/OUTPUT COMMANDS 

L<ist. VC.rify, MCrita. R<ead. Q<uit, E<rase, and 

console I^inal^H^^ "«-* " """ on the 

#-2L«* Prints all characters starting at the second 

preceding line and ending at the cursor. 

* 4L ** Prints all characters beginning at the cursor 

and terminating at the 4th <cr>. 

*° L ** * ri "! S from thm ^•a^ning of the current line up 

to the cursor. r 



tirsiMi n * M I d Prints the current text line on the 
thl l?,ll I * P? sitlon °* *»>• cursor within the line has no «J 
the cursor is not moved. No arguments are used. The VCerlfu c 
is equivalent to a OLL (list) command. * C 



ffect and 
ommand 



The U(rite command is of the form 
•W<file title>$ 



W«* th/JIj.*!^! ^t^ 2?! -I 'JJ? tiUe " d *"".d in Section 1.2 
II,? yp *' Th * « dx tor will automatically aooend m ' tfyt* 

.trip':,, f ™\ h , i:,:;:.:. 11 '"— •"*• in «• •• -• *•«• *»* -»x ». 
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The W(rite command will write the entire Text Buffer to a file 
with the given file title. It will not move the cursor nor alter the 
content* of the Text Buffer. 

If there is no room for the Text Buffer on the volume specified 
in the file title given, the message: 

OUTPUT ERROR. HELP! 

will be printed. It is still possible to write the Text Buffer out by writino 
it to another volume. 

The R(ead command is of the form 

*R<file title>* 

The editor will attempt to read the file title as given. In 
the event no file with that title is present, a '.TEXT' is appended and 
a new search is made. 

The R<ead command inserts the specified file into the Text 
Buffer at the cursor. The cursor remains in the Text Buffer before the 
text inserted. If the file read in does not fit into core buffer, the 
entire Text Buffer will be undefined in content, i.e. this is an 
unrecoverable error. 

The Q(uit command has several forms 

QU Quit and update bg writing out a new SYSTEM. URK. TEXT 
QE Quit and escape sessiom do not alter SYSTEM. WRK. TEXT 
QR Don't quit> return to the editor 
Q A prompt will be sent to the terminal giving all the 

above choices! enter option mnemonic <U, E# or R) only. 

Executing the QU command is a special case of the write 
command, and the attempt to write out SYSTEM, WRK. TEXT may fail. In 
this case use the W command to write out your file and then QE to exit 
the editor. 

The QR command is used on the occasions when a Q is accidentally 
typed, and you wish to return to the editor rather than leave it. 

The E(rase command (intended for CRT terminals) erases the 
screen. 

The command (also intended for CRT terminals) can be used to 
have the context around the cursor displayed on the screen each time 
the cursor is moved. The argument of the O command determines the siie 
<# of lines) in that context. This option is initially disabled when 
the editor is entered and can be enabled by issuing an command. A 
second command disables the optioni succeeding 'O's successively 
enable, disable etc. The cursor is denoted as a split in the line. 
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1. 4. 6 CURSOR RELOCATION COMMANDS 

^<omp. A<dvance. Beginning, Q<« t , FCind 

or ♦»> -?Sw.nJ i «.eI;r« t S/!: d l inm ori - nt «" "mmands. a positive <„ 
forward dJr^ction and ! n^It?^^ ° f char * ct "* °r line* in a 
lines in a Jacked r c? n ^ri-T* th ' number of c *"*<:t.r. or 
• unit when it dele^sT^"' in the t.^ r "° fln4 " 5 * ""• •* *«t a, 

charact.r^r.^U a^u^^: "* *"•*<« th# "' » " *"« °* h " 

the following t." ?' J. "sent! h J = ursor " Positioned as indicated in 
does not appiar in actul 1 III it h * curren V° Sition of th » cur *«"" "d 
clarification): " ** Dr « ent here only for 

THERE WAS A CROOKED MAN~<CR> 

AND HUMPTY DUMPTY FELL ON HIM<CR> 

character^in^. fHTHC The* l^V* ^Y*' •'"*"•' »-b" •• 
back 4 characters. Suffer - The edit command -4J moves the cursor 

THERE WAS A CROOKED^ MAN<CR> 

AND HUMPTY DUMPTY FELL ON HIM<CR> 

THERE WAS A CROOKED MAN<CR> 

AND H-UMPTY DUMPTY FELL ON HIM<CR> 

eurr.nt ?"" "" """"^ ° A m0V " "" """ *• *"• *«9innin 9 of tk. 

THERE WAS A CROOKED MAN<CR> 
~AND HUMPTY DUMPTY FELL ON HIM<CR> 

The command -1A (or -A) moves the cursor back one line. 

THERE WAS A CROOKED MAN<CR> 
AND HUMPTY DUMPTY FELL ON HIM<CR> 
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The Beginning command moves the cursor to the beginning of the 
Text Buffer. 

Search commands are used to locate specific characters or 
strings of characters within the Text Buffer. 

The 0(et and F<ind commands *r^ synonymous. Starting at the 
position of the cursor, the current Tert Buffer is searched for the nth 
occurrence of a specified text string. A successful search leaves the 
cursor immediately after the nth occurrence of the text string if n is 
positive and immediately before the text string if n is negative. An 
unsuccessful search generates an error message and leaves the cursor at 
the end of the Text Buffer for n positive and at the beginning for n 
negative. 

*B©STRING*«J*« This command string will look for the string 
STRING starting at the beginning of the Text 
Buffer; and if found it will leave the cursor 
immediately before it. 



1.4.7 TEXT MODIFICATION COMMANDS 

Hnsert. D(elete» Ktilli CChange. eX(change 

The Knsert command causes the editor to enter the TEXT mode. 
Characters are inserted immediately following the cursor until an <esc> 
is typed. The cursor is positioned immediately after the last 
character of the insert. Occasionally with large insertions the 
temporary insert buffer becomes full. Before this happens a message 
will be printed on the console terminal* 'Please finish'. ][n response 
type two successive <esc>s. To continue* type I to return to the Text 
mode. 

NOTE: Forgetting to type the I command will cause the text 
entered to be executed as; commands. 

The D(elete command removes a specified number of characters 
from the Text Buffer, starting at the position of the cursor. Upon 
completion of the command, the cursor's position is at the first 
character following the deleted text. 
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*-2D»» Deletes the two character! immediately preceding 

the cursor. 

*B*FHOSE *«D«« Deletes the first string 'HOSE ' in the Teit 
Buffer, since «D used in combination with 
a search command will delete the indicated 
text string. 

The K(ill command deletes n lines from the Text Buffer, 
starting at the position of the cursor. Upon completion of the 
command, the cursor's position is the beginning of the line following 
the deleted text. 

*2K*» Deletes characters starting at the current 

cursor position and ending at (and including) 
the second <CR>. 

•/*»• Deletes all lines in the Text Buffer after the 

cursor. 

The C(hange command replaces n characters, starting at the 
cursor, with the specified text string. Upon completion of the 
command, the cursor immediately follows the changed text. 

•OCAPPLESS* Replaces the characters from the beginning of 
the line up to the cursor with 'APPLES', 
(equivalent to using OX). 

♦130HOSES-CLIZARDSS Searches for the first occurrence of 'HOSE' in 

the Text Buffer and replace it with 'LIZARD'. 

The eX(change command exchanges n lines, starting at the 
cursor, with the indicated text string. The cursor remains at the end 
of the changed text. 

•-5XTEXT** Exchanges all character! beginning with the 

first character on the 5th line back and ending 
at the cursor with the string 'TEXT'. 

*OXTEXT*« Exchanges the current line from the beginning to 
the cursor with the string 'TEXT', (equivalent 
to using OC). 

*/XTEXT»* Exchanges the lines from the cursor to the end 
of the Text Buffer with the text 'TEXT', 
(equivalent to using /C). 
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1. 4. B OTHER COMMANDS 

S(ave, U(ntave, M(acro, N (macro execution) and '?' 

Tht S<ave command copies tht specified number of line* into the 
Save Buffer starting at the cursor. The cursor position does not 
change, and the contents of the Text Buffer are not altered. Each tine 
a S<ave is executed, the previous contents of the Save Buffer, if any, 
•t^ destroyed. If executing the S(ave command would have overflowed 
the Text Buffer, the editor will generate a message to this effect and 
not perform the save. 

The UCnsave command inserts the entire contents of the Save 

Buffer into the Text Buffer at the cursor. The cursor remains before 

the inserted text. If there is not enough room in Text Buffer for the 

Save Buffer, the editor will generate a message to this effect and not 
execute the unsave. 

The Save Buffer may be removed with the command OU. 

The M(acro command is used to define macros. A maximum of ten 
macros, identified by the integer <0. .9) preceding the 'M'» sv 
allowed. The default number is 1. The MCecro command is of the form: 

mMXcommand string* 

This says to store the command string into Macro Buffer number 
m, where m is the optional integer O. . 9. The delimiter, "A' in this 
example, is always the first character following the M command and may 
be any character which does not appear in the macro command string 
itself. The second occurrence of the delimiter terminates the macro. 

All characters except the delimiter arm legal Macro command 
string characters, including single <esc>s. All commands are legal in 
a macro command string. Example of a macro definition: 

♦5M%GBEGIN*«CEND BEGIN*V»%** 

This defines macro number 5. When macro number 5 is executed, 
it will look for the string 'BEGIN', change it to 'END BEGIN'!, and 
then display the change. 

If an error occurs when defining a macro, the message 

'Error in macro definition' 
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will be printed, and the macro will have to be redefined. 

The execute macro command, N, executes a specfied macro command 
string. The form of the command is: 

nNm* 

Here n is simply any command argument as previously defined; m 
its the macro number (an integer 0. . 9) to be executed. If m is omitted, 
I is assumed. Because the digit m is technically a command text 
string, the N command must be terminated by an <esc>. 

Attempts to execute undefined macros cause the error message 
'Unhappy macnum'. Errors encountered during macro execution cause the 
message 'Error in macro'. Errors encountered in macro command syntax 
cause the message 'Error in macro definition'. 

The ? command prints a list of all the commands and the sizes 
©f the Text Buffer, Save Buffer, and available memory left for 
expansion. 
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i. 4. 9 



SUMMARY OF ALL COMMANDS 



n - an argument 



m - macro number 



nA: 

B: 
nC: 

nD: 

E: 

nF: 

nG: 

H: 

I: 

nJ: 

nK: 

• nL: 
mH: 

nNm: 
nO: 



inserting, the following 



Advance the cursor to the beginning of the n th line from the 

current position. 

Co to the Beginning of the file. 

Change by deleting n characters and i 

text. Terminate* text with <esc>. 

Delete n. characters. 

Erase the screen. 

Find the n th occurrence from the curjrent cursor position of 

the following string. Terminate targiiet string with <esc>. 

Get - ditto - 

— invalid — 

Insert the following text. Terminate text with <esc>. 

Jump cursor n characters. 

Kill n lines of text. If current cursor position is not 

at the start of the line# the first part of the line remains. 

List n lines of text. 

Define macro number m. 

Perform macro number m» n times. 

On, off toggle. If on. n lines of teijXt will be displayed 

above and below the cursor each timje the cursor is moved 

If the cursor is in the middle of a line then the »*-- ■■ 

be split into two parts. 

The default is whatever fills the screen. Type 

- invalid - 
Quit this session, followed by: 



line will 
to turn off. 



U: (pdate Write out a new SYSTEM. WRK. TEXT 
E: (scape Escape from session 
R: (eturn Return to editor 
R: Read this file into buffer (insert at cursor); 
'R' must be followed by <file name> <esc>; 
WARNING: If the file will not fit into the buffer, the 
content of the buffer becomes undefined! 
nS. Put the next n lines of text from the cursor position into the 
Save Buffer. 
T; ■ - invalid - ' 

U: Insert (Uniave) the contents Df the.^ave Buffer into the text 

at the cursor* does not destroy the Save Buffer. 
V: Verify: display the current line 
W: Write this file (from start of buffet); 

'W' must be followed by <filenamc> <esc>. 
nX: Delete n lines of text, and insert th^e following text; 
terminate with <esc>. 
Y: - invalid - 

Z: — invalid - 
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- Notes * 
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WE TO THE LARGE NUMBER OF BUGS IN THE DEBUGGER, WE HAVE OMITTED THE 
DEBUGGER, AND ITS CORRESPONDING DOCUMENTATION FROM THE SVSTEM RELEASE. 

THE VEBUGGER WILL BE AVAILABLE AT SOME TIME IN THE FUTURE, AND YOU WILL 
BE NOTIFIED OT THIS FACT. PLEASE VO NOT ASK US ABOUT THE VEBUGGER, AS 
THE REPLY YOU GET WILL BE THE SAME AS THE MESSAGE ON THIS PAGE. 



Thank you ^ok ijoua pcuLLtn.cz in thu matte/i. id. 



Pagu 74 thn.ou.gh 10 have, been omitted. 
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* PASCAL COMPILER # * Section X. 6 * 
it****************** »«♦«♦*♦**#»»»«.«. 

Version 1.5 September 1978 

th, pp n!l!!^ SD Pas f* 1 compiler, a one-pets recursive descent beted on 
a* Rf«/r I " m J iler fr0m Zurlch ' is invoked by oting the C(ompil. 
-oV?*??. ?*? °r. thC 0Ute ™ 05t l«v«l of the UCSD Patcal syttem. If a 
r IJuii! VA compile* that. Otherwise, it prompt, the user for 

iJirlX a I "!?** generates codefiles to run directly on the 

Pascal interpretive machine. 

Unless the HAS SLOW TERMINAL boolean inside the system 

"J;"" i " tion fr"/" - «* cti °" *>*> ** true, the compiler, during the 
course of compilation, will display on the CONSOLE device output 
detailing the progress of the compilation. This output can be 
suppressed with the Q+ compiler option (see section on compiler 
CONSOLE dlvici": B * 1 ° U ' '" *" "** 9lm ° f the out > ut whlch «PP»«r« on the 

PASCAL compiler CI. 9 unit compiler3 

< 0>. . . . 

PI C70503 

< 19> 

P2 C30403 

< 61> 

TEST C30033 • • • • . 

< 119> 

The identifiers appearing on the screen av the identifiers of 
the program and its procedures. The identifier for a procedure is 
displayed at the moment when compilation of the procedure body is 

TJ*?; I h# numbers within C 3 indicate the number of (16 bit) words 
available for symbol table storage at that point in the compilation. 
The numbers enclosed within < > are the current line numbers. Each dot 
on the screen represents 1 source line compiled. 

.I* * J f th * COff, P ilati °n ** successful, that is, no syntax errors 
J!!"!;"' * h f " n,pi i er wr **« * codeflle to the disk called 
♦SYSTEM. WRK CODE. This is ti.t codefile which is executed if the user 
nad typed the R(un command. See Section I. 1 INTRODUCTION AND OVERVIEW 
for further details on the system commands. 

Should the compiler detect a syntax error, the text surrounding 
T error and an error number together with the marker '«« ' will 
point to the symbol in the source where the error was detected In the 
event that both the Q and L options mr 9 set, the compilation will 
continue, with the syntax error going to the listing file, and the 
console remaining undisturbed. The compiler will the give the user the 

lit J™!,*"!" 9 ! * pace ' * n <esc> ** # E'. Typing a space instructs 
*ne compiler to attempt to continue the compilation, while escape 
JJ U * e !,! he terminatlon of the compilation, and "E" results in a call to 
the editor, which automatically places the cursor at the symbol where 
the error was detected. 
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*~. *•. ! „ . »¥ntax errors detected by the UCSD Pascal compiler 
Mn!n *t*ndard ones listed in Jensen fciwirth. A complete list of all 
UCSD ^ntax errors can be found in Table 5. All error numbers will be 

•SYS^m^vut!* 1 *««tual message upon entjry to the editor if the file 
•SYSTcII. SYNTAX is available. 

1.6.1 COMPILE TIME OPTIONS 

Compile time options in the UCSD Pascal compiler are set 
according to a convention described on pages 100-102 of Jensen and 
Wirth, where compile time options are set by means of special -dollar 
i^Hn" COfflments ^side the Pascal program text. The syntax used in 

5 .,? J 0(npil#p control comments is essentially as described in Jensen 
and Wirth. The actual options and the letters associated with those 
options bear only little resemblance to the options listed on pages 101 
end 102 of Jensen and Wirth. If a '+' or '- ' is not specified after 
•n option letter, '+* is assumed. The following sections describe the 
various options currently available to the user of the UCSD Pascal 
compiler. 

D: 

This option causes the compiler to issue breakpoint 
instructions into the codefile during the course of the compilation in 
order that the interactive Debugger can be used more effectively See 
Section 3.2 "DEBUGGER" for details 

Default value: D- 

D-: causes the compiler to omit breakpoint instructions 
during the course of the compilation. 

D+: causes the compiler to emit breakpoint instructions. 



Affects the boolean variable GOTOOK in the compiler. This 
boolean is used by the compiler to determine whether it should allow 
the use of the Pascal GOTO statement within the program. 

Default value: G- 

G+: allows the use of the GOTO statemen-t. 

G-: causes the compiler to generate a syntai error upon 
encountering a GOTO statements 

C: The. [*$C cormant*) place* the. comnznt, ($0 choJuizteA maximum*) aji tht code 

iltz gtneAated. TliU option I* tu>id at UCSV to platz copyright MonjncuUon 
in the. codzfcZz. 
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The C-option has been used at U. C. S. D to restrict novice 
programmers from excessive uses of the CDTO statement in situations 
where more structured constructs such as FOR, WHILE, or REPEAT 
statements would be more appropriate. 



I: 

When an 'I' is followed immediately by a '*/ or '-', the 
control comment will affect the boolean variable IOCHECK within the 
compiler. An alternative use of 'I' in a compiler control comment 
causes the compiler to include a different source file into the 
compilation at that point. See section INCLUDE-FILE MECHANISM for 
syntax. 

IOCHECK OPTION 
Default value: 1+ 

I + : instructs the compiler to generate code after each statement 
which performs any I/O/ in order to check to see if the I/O 
operation was accomplished successfully. In the case of an 
unsuccessful I/O operation the program will be terminated 
with a run time error. 

I-: instructs the compiler not to generate any I/O checking 
code. In the case of an unsuccessful I/O operation the 
program is not terminated with a run time error. 

The 1-option is useful for system level programs which do many 
I/O operations and also checks the IORESULT function after each I/O 
operation. The system program can then detect and report the I/O 
errors, without being terminated abnormally with a run time error. 
However this option is set at the expense of the increased possibility 
that I/O errors, (and possibly s^y/^v program bugs)/ will go 
undetected. 

INCLUDE FILE MECHANISM 

The syntax for instructing the compiler to include another 
source file into the compilation is as follows: 

<** I FILENAME*) 
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lourc. J;?!"!! I**?**? - X# *" d ' #> ' ar * *■'•" •• **• « !•■»«•• of th. 
JilISI« Jh! ^ in<:lod#d - Th « como».nt must b. closed at th. end of th. 

'FIL?nISp* I filimam, » * bl * nk »««t b» lnurt.d between '<#»I' and 
FILENAME'. For example, the comment: 

<** I TURTLE. TEXT*) 

?hHj d oo!nr JUM"* ™T U t'™ r *° ■• compiled into the program at 
cnat point in the compilation. 

(♦»I +FARKLE. STUF^*) 

clmltilVIl 9 *** S ° UrC# film +FA ^LE. STUFF: to be included into th. 
compilation. 

co », fl n.. r L th, . lni ! U1 attempt to op.n th* include fil. fail., th. 

thi! lleoSS I«!!!*i*: % U ' TEXJH to *h. fij.-nam. and tri., again. If 

l.t*<ll JE J**?"?* fai1 *' or some I/O .rror occur, at som. point while 

r.ading th. includ. fil., th. compil.r responds with a fatal syntax 
©rror. ■ 

UAD Dfa „I™," mpiltr ■ccepts includ. fil.$ which contain CONST, TYPE, 
VAR, PROCEDURE, and FUNCTION d.claration. even though th. original 
program has previously completed its declarations. To do so, th. 
include compiler control comment must appear between the original 

pSScFnnpJ lai «^J5,Sr i elar * tion * nd th * fi * st of th « ^iginal program's 
in™? h <°I ™ NCTI0N declarations. Note that an include file may be 
inserted into the original program at any point desired, provided th. 
I!?:?V!! Ver « i ? fl th * normal ordering of Pascal declarations will not be 
violated. Only when these rules are vioUted does the above procedure 

.- < , T h * JI ?? inpil,r cannot ke «P track of nested include comments, i. .. 
an include file may not have an include file control comment. This 
results in a fatal syntax .rror. 

Th. includ. fill, option was add.d to th. compiler at U. C. S D in 
ord.r to make it easier to compile large programs without having to 
hav. the entire source in one very large file which in many cases would 
D. too larg. to .dit in th. .xisting .ditors' buff.r. 

L: 

Controls whether the compiler will generate a program listing 
of th. source text to a given file. The default value of this option is 
L», which implies that no compiled listing will be made If the 
character following -L- is "+", then the compiled listing will be sent 
to a «l»fc*ll. with the title '*SYSTEM. LST. fa-XT'. The user may override 
this default destination for the compiled listing by specifying a 
filename following "L". For example the following control comment will 
cause the compiled lifting to be sent to a diskfile called 
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<*»L DEHOI. TEXT*) 

To specify a file-name inside a control comment* see the 
section de*cribing the include file mechanism. 

Note that listing files which are sent to the disk may be 
edited as any otht»r text file provided the filename uhich is specified 
contains the suffix ".TEXT". Without the ".TEXT- suffix the file will 
be treated by the system as a datafile rather than as a text file. 

• The compiler outputs next to each source line the line nuaber. 
segment procedure number, procedure number, and the number of bytes or 
words (bytes for code, words for data) required by that procedure's 
declarations or code to that point. The compiler also indicates 
whether the line lies within the actual code to be executed or is a 
part of the declarations for that procedure by outputing a "D" for 
declaration and an integer O. . 9 to designate the lexical level of 
statement nesting within the code part. If the D+ option is set then 
the listing file will include an asterisk on each line where it is 
appropriate for a user to specify a breakpoint while in the interactive 
Debugger. This information can be very valuable for debugging a large 
program since a run time error message will indicate the procedure 
number* and the offset where the error occurred. 



The Q compiler option is the "quiet compile" option which can 
be used to suppress the output to the CONSOLE device of procedure names 
and line numbers detailing the progress of the compilation. 

Default value: is set equal to current value of the SLQWTERM 
attribute of the system communication record 
SYSCOI-r. (actually SYSCO!T\ KISCINFO. SUOWTERM) 

Q+: causes the compiler to suppress output to CONSOLE device. 

Q-,- causes the compiler to send procedure name and line number 
output to the CONSOLE device. 



R: 

This option affects the value' of the boolean variable 
RANGECHECK in the compiler. If RANQECHECK is true, the compiler will 
output additional code to. perform checking on array subscripts and 
assignments to variables of subrange types. 

Tklt option COU6C6 tht tUting to continue, item top-ot-&o/im. -c.e. tht compilzA. 
dota 

PAGEUISTFILE) 
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Default value: R+ 

R+: turns range checking on. 

R-: turns range checking off. 

Note that programs compiled with the R-option set will run 
slightly faster; however if an invalid index occurs or a invalid 
assignment is made* the program will not; be terminated with a run time 
error. Until a program has been completely tested and known to be 
correct* it is usually best to compile with the R+ opt 2. on left on. 

S: 

This option determines whether the compiler operates in 
"swapping" mode. There ara two main partis of the compiler: one 
processes declarations; the other handles statements. In swapping 
mode* only one of these parts is in main memory at a time. This makes 
about 2500 additional words available for symbol table storage at the 
cost of slower compilation speed due to the overhead of swapping the 
compiler segment in from disk. On fullsi*e* single density floppy 
disks this amounts to a factor of two reduction in compile speed. This 
option must occur prior the the compiler encountering any Pascal 
syntax. 

Default value: S- 

S+: puts compiler in swapping mode. 

8-: puts compiler in non-swapping mode. 

U: 

USER PROGRAM OPTION: 

This option sets the boolean variable SYSCOMP in the compiler 
which is used by the compiler to determine whether this compilation is 
a user program compilation* or a compilation of a system program. 

Default value: U+ 

U+: informs the compiler that this compilation is to take place 
on the user program lex level. 

U— : informs the compiler to compile the program at the system lex 
level. This setting of the U compile time option also causes 
the following options to be set: R-» G+* I-. 
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NOTE: This option will generate programs that will not behave 
as expected. Not recommended for non-systems work without knowing its 
«athod of operation. 

USE LIBRARY OPTION: 

In this version of tha 'U' option, tha U is followed by a fila 
name. The named file becomes the library file in which subsequent 
USEed UNITs »T9 sought. The default file for the library is 
•SYSTEM. LIBRARY. (see section 3.3.2 for more details on UNITs) 



option: 



Following is an example of a valid USES clause using the 'U* 
USES UNIT1,UNIT2, Cfound in »SYSTEM. LIBRARY^ 

(•u a. cqpg^ 

UNIT3. 
[ »U B. LIBRAH vX 
UNIT4, UN ITS J 
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* UCSD DA5IC COMPILER ♦ * Section I. 7 ♦ 



Version I. 5 September 197B 



This section has been designed for programmers who ave already 
familiar with Basic. Its intent is to describe to those experienced 
users the details of UCSD B«ssic in a manner sufficiently detailed so as 
to enable the writing or modification of programs in a manner 
compatible with the UCSD Basic Compiler. 

The first section contains a brief description of the features 
included in UCSD Basic; the second, the descriptions of the features 
unique to UCSD Basic, and the third a list of ^hose features which we 
intend UCSD Basic to allow, but which mre not yet implemented. 

The UCSD Basic Compiler has been written in the Pascal 
language. Some of the intrinsics of the Pascal language, which mr» not 
found in standard Basic, are found within the UCSD version of Basic. 
Many of these are noted in the first section, all of them are noted or 
recapped in the second. 



The UCSD BASIC Compiler is invoked just like the Pascal 
compiler, provided the compiler code is named ^SYSTEM. COMPILER. 
Originally it will be named BASIC. COMPILER. If you want a disk to be 
BASIC oriented, you must change the name of, or remove, the Pascal 
compiler, and change the name of BASIC. COMPILER! to *SYSTEM. COMPILER. 
That disk, and any copies of it, will now compile BASIC programs as a 
result of the CCompile or RCun command. 



The Basic compiler has only real and string variables. When 
applying a real to indexing or other integer purposes the rounded value 
of the number is used. In the functions below xi and y can be real 
variables or expressions which evaluate to real values. Similarly si 
and s2 can be string variables or expressions which evaluate to a 
string. 



Real variables: letter (dig it ). 
String variables: letter (dig it )*. 



The! digit is optional. 
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ATN(x) 

EXP(x) Returns the bat* of the natural logarithm* raised to the power x. 

INT<x> Returns the value of x rounded to the nearest integer. 

LOO(x) Returns the log (base 10) of x. 

LN(x) Returns the natural log of x. 

MOD(i.y) Returns x modulo y. 

6IN(x) Returns the sine of the angle x. Where x is in radians. 

COS(x) Returns the cosine of an angle x. Where x is in radians. 



CATSCsl. s2* . . . ) Returns a string which is equal to the concatenation of 
all the strings in the parameter list. 

CQP*(sl«x«y) Returns a copy of the portion of the string sl» y 

consecutive characters* starting with the character at position x. 

DEL*<sl#x#y) Returns the contents of the string si with y consecutive 
characters deleted. The deletion starts with the character at 
position x. 

INSt<sl« s2* x) Returns the contents of string s2 with string si inserted 
immediately before the character which Is at position x. 

LEN(sl) Returns the length of the string si. 

P08(slts2) Returns an integer which is equal to the position of the 

first character in the first occurrence of the string si in the 
string s2. 



OTHER FUNCTIONS 

ORO(s) Returns the ASCII value of the first character of the string s. 

STRS(x) Returns the string containing the character associated with the ASCII 
value x. 
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GETtt Reads a single character from the keyboard without prompt or echoing/ 
and returns it as a string. GET* requires no arguments. 



DLDCc. s> 
NEWCc, s) 



c is a numeric constant without a fraction part, which becomes 
associated with the disk file whose najme is in s. OLD expects that 
file to already exist. NEW creates a new one with the name i. removing 
any previous file of that name. These functions must occur before 
associated print or input statements. The numbers may not be 
reassigned and must be in the range 1, . 16. For best results, use only 
at the top of a program. In order that a file created by NEW be 
editable with either of the system editors* '.text' must be appended to 
the file title. 



These functions return IORESULT as described in section 2. 1. 



Arithmetic statements and operations 

- i + subtract. add 

/ t * divide, multiply 

"* . *» exponentiation 



Relational operators 





V A V 
A II 

On i 
A V A V 


INPUT list 




or 
INPUT #c list 





equals 

not equals 

greater than 

less than 

greater than or equal 

less than or equal 



Inputs from the main system device, usually the keyboard. If the 
optional #c is present. INPUT inputs from the disk file number 
c. The input list may contain any combination of real variables and 
string variables. When a program expects input the prompt **?" is 
printed. Input of real numbers may be terminated with any non-numeric 
character. Input of strings must be terminated with a return. 



PRINT list 

or 
PRINT #c list 



Writes to the main output device the list following the PRINT command. 
If the optional #c is present. PRINT outputs to the diskfile number c. 
The output list may contain any variable, subscripted array variable, 
any arithmetic or string expression, or any literal text. The list may 
be separated by commas or semi-colons. If the list ends in a semi-colon 
the carriage return is suppressed. Literals may be enclosed In either 
type of quotation marks. Double quotation marks prints a single 
quotation mark. 
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FOR var - expl TO exp2 STEP exp3 
NEXT v*t 




IF expl (relation operator) exp2 THEN (line number) 

GOTO 

Either the reserved word THEN or GOTO can be used in this statement. If 

the relation between the expl and exp2 is found to be true the branch 

occurs. A string is considered to be less than another string if it is 
lexicographically smaller. 

ON exp GOTOUnl, ln2. . ) 

If the expression, when rounded, evaluates to 1 it goes to the first 
line number (lnl) if it evaluates to 2 it goes to ln2, etc. This is the 
only form of the computed GOTO which is available. If the expression is 
out of range an error occurs. 



DEF FNname(list)«expression 



or 



DEF FNname(list) 
FNEND 



Single line and multi-line functions are allowable. The function name 
must be a legal variable name for the type of value returned. Functions 
may be defined recursively. The parameter list is called by value, that 
is# changes inside the function don't affect the value of the external 
parameters. 



LET var»exp 

or 
var»exp 



This command assigns a new value to the variable. If the variable is a 
string, the expression must evaluate to a string, and if a real* 
evaluation must be to a real. 



DIM var (nl. n2. . . . ) 



A single or multidimensional array may be declared with this command. 
The variable name determines the type of the srrmq. The <trrati indices 
are 0. . nl. O. . n2. . ,, . Doth real and string multidimensional arrays can be 
used. If no dimensions are declared the dimensions are assumed to be 
0. . 10. 0. . 10. 0. . 1. 0. . 1 ... The number of dimensions automatically 
declared depends on the number of dimensions which are used in the 
program, but must be consistant over all uses of any given array. 
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OOSUB linenumber 



Execute* a subroutine call. The calling address is placed on the 
subroutine stack. Subroutine calls may be recursive. 



RETURN 



Returns to the line after the last OOSUB which is stilll pending. It pops 
the top address off the stack and uses it as the return address. A 
return when no OOSUB 's ara pending is an error. 

GOTO linenumber 

Program execution jumps to the given lint number. 
REM text 

This line is a remark. 



LhL^£&j^i&W& •TsSsBg?* -feiffc 



Arithmetic 

For loops: Note that var«expl is done before exp2 or exp3 ant evaluated. 

Continuation of statements is allowed. Any line not beginning with a 

line number is assumed to be the continuation of the line above. 



by value. You ara not 



Functions: All parameters of functions arm call 

allowed to use the parameters to return values from a function. 
Function calls are allowed to be recursive. 



Strings: The string functions and procedures are those found in the 
UCSD Pascal language. 



Arrays: Arrays of more than two dimensions ara 



allowed. 



Print: Tab stops are not allowed. All list elements are printed without 
spaces between them. The carriage return 1 can be suppressed by "t ' 
as the last symbol in the line. 

Subroutines: Subroutines may be recursive. 

Comments: In line comments may be inserted. The portion of any line 
following the 6 symbol is ignored by the compiler. 
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PASCAL FUNCTION*: The code of PASCAL FUNCTION* mag be mdfiwtl to the 
BASIC compiler as new standard BASIC functions. This is 
accomplished by a straight-forward addition to the BASIC compiler. 



Certain features of the UCSD Basic compiler av still in the 
process of being implemented. The most important of these »v listed 
below. 

Data and Read: The standard ini tialitation statements. 
Matrix statement for standard matrix operations. 
Integer variables. 
More standard functions. 



Create the BASIC program using one Of the system text editors. 
Once you have ensured that the BASIC compiler has been named 
SYSTEM. COMPILER , you can use the commands C(ompile and R<un at the 
COMMAND level/ just as if you were using Pascal on a disk; which has th< 
Pascal compiler as its SYSTEM. COMPILER. For a more detailed 
description of COMMAND see Section 1. 1. 
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• THE LINKER * # Section 1. 8 # 

#«■*#**#*♦♦♦»♦» **♦*#****♦*#♦*♦ 

Version I. 5 September 1978 

uhlch ™? UCS ? "-INKER allow* the user to combine pre-compiled files, 
which may have been written either in PASCAL or in assembly language, 

u"efurro u nn:T TV" 1 *' ThB U " r may Wi$h t0 ^corporate cerJain 
*Ir««J«T !J Programs without having to rewrite or even 

II^Sl . routines. For example, one might wish to use a fast 
rout?n^ c iu?n 9e r ° Ut '?« for * om « ^eal-time- application. This 
ll.tl ne ," uld be •««»mbl»d separately, stored in a library, and 
eventually accessed via the LINKER. 

„„, To link in routines <either procedures or functions), the 
pSnrcnn D ^° 9ra I declflres those routines to be EXTERNAL, much as 
PROCEDURES or FUNCTIONS may be declared FORWARD (see Section 3 3 1) 

Iroli-!- 1 * 1 !* *t! compiler that th * routines may be called, but are" not 
IIouJJIS I * compiler will then inform the system that linking is 

required before execution. 

The LINKER can also be used to link in UNITs A UNIT is a 
group of related routines which will be used together to perform a 
"J;;" " k " „ U |: SD TURTLEORAPHICS is an example of a UNIT containing 
procedures and functions with which a "turtle" can be moved on the 
screen A UNIT can be used by typing the command USES <unitname> 

Uir? y * t** th * PR0GRAM <*<entifier>. For more information on 
UNITs, see Section 3.3.2. 

Any files which reference UNITs or EXTERNAL routines and have 
not yet been linked may be compiled and saved, but will need to be 
linked before they can be executed. 

1. B. 1 USING THE LINKER 

«r «... nMTT* 4 " J ro ? ram * n the workfile contains EXTERNAL declarations, 
or uses UNITs, typing R(un will automatically invoke the LINKER after 
the compiler. The LINKER will search the file +SYSTEM. LIBRARY for the 
routines or UNITs specified, and will attempt to link them into the 
-2v!£ii*; T J!~ the UNIT ° r EXTERNAl -ly declared routine is not present in 
♦SYSTEM. LIBRARY, the LINKER will respond with an appropriate message: 

Unit, 
Proc, 
Func, 
Global, 
or Public <identifier> undefined 
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The LINKER may also be invoked explicitly, and* in fact, must 
be invoked explicitly in cases where 

1) the file into which UNIT* or EXTERNAL routines mv to be 
linked is not the workfile. or 

(2) the external routines to be linked reside in library files 
other than «SYSTEM. LIBRARY. 

(Note: In the current implementation UNITs must reside in 
♦SYSTEM. LIBRARY at the time of compilation in order to be USED by a 
PASCAL program. > 

In order to explicitly invoke the LINKER, the v**t types 'L' at 
Command level and receives the prompt: 

Host file? 

The hostfile is the file into which the routines or UNITs mv to be 
linked. The LINKER appends .CODE ot all file names typed in except for 
♦<ret>. Typing a <ret> in response to the prompt causes the LINKER to 
use the workfile as the hostfile. The LINKER then asks for the name(s) 
of the library files in which the UNITs or EXTERNAL routines are to be 
found: 

Lib file? <codefile identified 

Up to eight library files may be referenced. Typing '♦' in 
response to a request for a libfile name will cause the LINKER to 
reference *SYSTEili. LIBRARY. The user will be notified about each 
library file that is successfully opened. 

Example: Lib file? * <ret> 

Opening *SYSTEM. LIBRARY 

For information on LIBRARIES and the LIBRARIAN see Section 4.2. 

When all relevant libfile names have been entered the user 
must type <ret> to proceed. The LINKER will now prompt with: 

Map file? <file identified <ret> 

The LINKER writes the map file to the file requested by the 
user. The map file contains relevant LINKER info regarding the linking 
process. Responding with <ret> to this prompt will suspend this option. 
Note that .TEXT is appended unless a '. ' is the last letter of the 
filename. 

The LINKER now reads up all segments required to enable the 
linking process. The user is now prompted to enter the destination 
file for the linked code output (this will often be the same file name 
as that of the host file). Linking will commence after the <ret> 
following the output file name has been typed. An empty line* <ret> 
only, causes the output file to be placed in the workfile e.g. 
•SYSTEM. WRK. CODE., 

During the linking process the linker will report on all 
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segments being linked as well at all external routine* being copied 
into the output codefile. The linking process will be aborted if any 
required segments or routines are missing or undefined. The user will 
be informed of their absence with messages as described at the 
beginning of this section. 



1.8.2 



NOTES ON LINKER CONVENTIONS AND IMPLEMENTATION 



Codefiles may contain up to 16 segments. Block of a codefile 
contains information regarding name* kind, relative address and length 
of each code segment. This information is called the segtable* and 
is represented as a record: 

RECORD 

DISKINFO: ARRAYCO. . 153 OF 
RECORD 

CODELENO, CODEADDR: INTEGER 
END 

SEGNAME: ARRAYCO. . 153 OF PACKED ARRAYCO. . 73 OF CHARi 

SEOKIND: ARRAYCO. . 153 OF (LINKED, KOSTSEQ, SEGPROC, UNITSEC, 

SEPRTSEOi 

TEXTADDR: ARRAYCO. . 153 OF INTEGER* 
END 

CODELENO and CODEADDR Qive. respectively, the length of the 
code segment in bytes, and the block address of the code segment. A 
description of SEGKINDs follows: 

LINKED: The codesegment is fully executable. Either all external 
references (UNITs or EXTERNALS) have been resolved, or 
none were present. 

HOSTSEG: the segkind assigned to the outer block of a PASCAL 
program if the program has external references. 

SEGPROC: the swgkind assigned to a PASCAL segment procedure. 

UNITSEG: the segkind assigned to a compiled SEGMENT, (see Section 
3. 3. 1 ) 

SEPRTSEG: This segkind is assigned to a separately compiled 

procedure or function. Assembly language codefiles are 
always of this type, as well as Pascal UNITs which arc 
not SEGMENT UNITs. 
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For an unlinked code segment (that is* a segment containing 
unresolved external references) the compiler generates linker 



of variable-length records- 



Information. This information is a series 

one for each UNIT, routine or variable which is referenced in# but not 
defined in the source. The first 8 words of each record contain the 
following information: 



LIENTRY-RECQRD 

NAME: ALPHA i 

CASE LITYPE: LITYPES OF 
UNITREF, 
OLOBREF, 
PUBLREF* 
PRIVREF, 
SEPPREF* 
SEPFREF, 
CONSTREF: 

(FORMAT: OPFORMAT; (format of lientry.name can be 

any of BIG, BYTE or WORD. ) 
NREFS: INTEGER; (# of references to lientry.name in 

compiled code segment) 
NWORDS: LCRANGE)i (size of privates in words) 
GLOBDEF: | 

(HOMEPROC: PROCRANQE; (which procedure it occurs in) 
ICOFFSET: ICRANGE); tbyte offset in p-code) 
PUBLDEF: 

(BASEOFFSET: LCRANGE); (compiler assigned word offset) 
CONSTDEF: 

(CONSTVAL: INTEGER); (users defined value) 
EXTPROC, EXTFUNC, 
SEPPROC, SEPFUNC: 

(SRCPROC: PROCRANGE; (procedure number in source segment) 
NPARAMS: INTEGER); (number of parameters expected) 
EOFMARK: 

(NEXTBASELC: LCRANCE^ (private var allocation info) 
END(lientry); 



If the LITYPE is one of the first case variant, then following 
this portion of the record is a list of pointers into the code 
segment. Each of these pointers is the absolute byte address within 
the code segment of a reference to the variable. UNIT or routine named 
in the lientry. These av 8 word records*; but only the first NREFs of 
them are val id. 
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* ADAPTABLE ASSEMBLER *|* Section i. 9 * 



Version 1.5 September 1978 

Users of UCSD Pascal occasionally! ! need to write and execute 
small assembly routines written in the language of the host machine. 
These routines would be used within a Pascal program to provide low- 
level or time critical facilities. The li>£sD Adaptable Assembler (in 
conjunction with the UCSD Linker) has been designed to meet those 
needs. The UCSD Pascal Project will be maintaining all our Pascal 
interpreters using this assembler in the jnear future. By this process 
the users of the UCSD Pascal system will become essentially independent 
of any manufacturer's system software. 

This assembler was modelled afteij The Last Assembler (TLA) 
developed at the University of Waterloo. ! The basic concept behind .both 
the TLA and the UCSD Adaptable Assemblers is the use of a central 
machine independent core that is common 1?p all versions of the 
assembler. This central core is augmented with machine specific code 
to handle the peculiarities of each individual machine. 



For the I. 3 release PDP-11 and Z$ 
available. Neither of these adaptations 
week of effort. 



This document is intended for a Trader who is already fluent in 
at least one assembly language. 



► assemblers will be 
ook longer than one person- 



1.9. 1 



USAGE 



Before attempting to execute the jassembl er program for a 
specific machine* an opcodes file (Z80. OPCODES or 11. OPCODES) must be 
located on the system disk. The errors file (ZOO. ERRORS or 11. ERRORS) 
contains the error messages that art usee for error flagging during the 
assembly. This file is optional; if useq, it must also appear on the 
system disk. 



To use the UCSD assembler* type 
This will execute SYSTEM. ASSEMBLER. (Th 
right version of the assembler (PDP-11 or 

The program displays* the versio 
executed and assumes that the current woif 
assembled. If there is no current workfl 
file is to be assembled. 



(ssem from the Command line, 
user should arrange that the 
Z80) have that title.) 

of the asssembler being 
itfile is the one to be 
e then the program asks which 
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The next prompt line is: 

Output file for the assembled listjing (<CR> for none): 



K)%usl * or * console or printer (output the word* CONSOLE or 
PRINTER must be followed by a colon, i.e. CONSOLE: . If the colon is 
neglected the output it unt to a file of 
point* the program reports whether or not 
on line. The assembled code is written ou 
♦SYSTEM. WRK. CODE which cannot be executed 
to link in with a host file. 



the name given. At this 

the output device (if any) is 

t to a file called 

by itself but must be changed 



the workfile* flagging 
ther than an I/O 
e* the nature of the error 
Xit. The error message will 
If that is not possible/ due 
errors file* the error 



The program then starts assembling 
errors as they mv found. If an a error, o 
error* is found* a general message indicat 
and also gives the option to continue or e 
be taken from the ERRORS file if possible, 
to space limitations or the absence of the 

message number is given. The assembly is aborted if the I/O error 
encountered is not due to data typed in byMthe user* otherwise the user 
is prompted to try again. (See the complete list of Assembler syntax 
errors and machine specific errors in Table 6. ) 

The console displays* on the left hand side of the screen* one 
dot for each line of code assembled and a line counter every SO lines. 
When an include file is started* the console displays: 



INCLUDE 



<FILE ID> 



indicating which file has been included. 

At the end of the assembly the assembler program indicates that 
it is finished and tells the user how many errors were found. In 
addition an alphabetic symbol table is generated. 

The reference symbol table consists of three parts. The first 
column represents the symbol identifier* the second* the symbol type* 
and the third* the location that it is defi^etl or the value it has. 
Actual values av given for the symbols representing absolutes and 
definition locations are given for the symbols representing labels. 
The location number is given as a hi-byte first number and corresponds 
to the index numbers on the left hand side jof the listing. Only symbols 
which have definition locations or absolute values have numbers in the 
third column; other types have dashes. 

Below is an example of an assembled listing with symbol table. 
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PACE- 1 PRIMARY2 FILE: #5: PRIMARY. 2 



00001 

Memory after initial iiat ion: 

0000! 

0000 1 FLOPPY 

0000 I SECMEM 

t 

0000 1 SECENT 

0000 1 SECDSK 

P 

0000 i B1DSK 

0000 1 B2DSK 

0000 i 

oooo : 



.PROC PRIMARYZ 
6068 

. EQU OBFDH 

. EQU 9000H 

. EQU 9000H 

. EQU OBH + 1700H 

. EQU 10H + 1700H 

. EQU 18H + 1700H 

. ORG 1000H 



ioooi 








1000! 


FD 21 ***# 


PRIMARY LD 


IY, SECREAD 


1004! 


CD FDOB 


CALL 


FLOPPY 


1007 J 


FD 21 **** 


LD 


IYjB1.RF.AD 


100B! 


CD FDOB 


CALL 


FLOPPY 


100E! 


FD 21 **** 


LD 


IY, B2READ 


10121 


CD FDOB 


CALL 


FLOPPY 


10151 


C3 0090 


JP 


SECENT 


1018! 








1002* 


1810 






1018! 




SECREAD 




1018! 


00 


. BYTE 


»-* 


1019! 


OA 


. BYTE 


OAH 


101AS 


0090 


.WORD 


SECMEN 


101CI 


0002 


. WORD 


200H 


101E! 


0000 


. WORD 


«-* 


10201: 


0010 


. WORD 


PRIMARY 


10221 


00 


.BYTE 


»-* 


10231 


0817 


. WORD 


SECDSK 


10251 








1009* 


2510 






1025 1 




B1READ 




1025 J 


00 


. BYTE 


*-•> 


1026S 


OA 


. BYTE 


OAH 


1027,' 


0093 


. WORD 


SECMEN+300 


10291 


0002 


.WORD 


200H 


102BI 


0000 


.WORD 


%-% 


102D1 


0010 


. WORD 


PRIMARY 


102FS 


00 


.BYTE 


*-» 


10301 


1017 


. WORD 


B1DSK 


1032! 








1010* 


3210 






10321 




B2READ 




1032 J 


00 


.BYTE 


*-* 


1033: 


OA 


.BYTE 


OAH 


1034! 


0095 


. WORD 


SECMEN+500 


10361 


0002 


.WORD 


200H 


1038! 


0000 


. WORD 


*-* 


103A! 


0010 


. WORD 


PRIMARY 



{Rom-based f loopy driver 

i First location in memory of bo 

; Entry point of bootstrap 

j Sector start of second bootstr 

i Sector start of BIOS part 1 
•Sector start of BIOS part 2 

i Primary bootstrap for ZILOG DO 



j Get block for second bootstrap 
; Get block for part 1 of BIOS 
jGet block for part 2 of BIOS 
i Jump into second bootstrap 



> Unused 

i Read command 

j Memory location for second boo 

i Number of bytes in boot 
; Completion return address 
> Error in return address 
i Completion result code 
{Disk block of second boot 



; Unused 

i Read command 

{Memory location or BIOS part 1 

{Number of bytes in BIOS part 1 

{Completion return address 

♦Error return address 

{Completion result code 

{Disk block of BIOS part 1 



{ Unused 

{ Read command 

{Memory location ofd BIOS part 

{Number of bytes in BIOS part 2 
{Completion return address 
•Error return address 
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103C1 00 
103DJ 1B17 
103FJ 
103FI 



BYTE *-4 
WORD B2DSK 

END 



i Completion result code 
iOisk block of BIOS part 2 



PACE- 2 PRIMARYZ FILE: #5: PRIMARY. Z SYMBOLTABLE DUMP 



AB - 


Absolute 


LB - Label 


UD - 


Undefined 


MC - Macro 


RF - 


Ref 


DF - Def 


PR - 


Proc 


FC - Func 


PB - 


Public 


PV - Private 


CS - 


Constant 




B1DSK 


AB 1710! 


B1READ LB 


1025! 


! B2DSK 


AB 1718! 


FLOPPY 


AB OBFD! 


PRIMARY LB 


XOOO! 


! PRIMARYZ 


PR 1 


SECENT 


AB 90001 


SECMEM AB 


90001 


1 SECREAD 


LB 1018! 



B2READ 



LB 1032! 
AB 17081 



NOTES: 

The location values in the symbol table dump vf*T to the 
locations in the listing. 



The ****** 

not yet defined. 



in the listing call attention to the use of a label 



If a star (*) appears after the location number at the left of 
the listingi it indicates that a forward ref erence occurring earlier in 
the assembly has been resolved. The number to the left of the '*' is 
the location where the reference occurred while the number to the right 
is the new contents of that location. 



1.9.2 



HIOH-LEVEL SYNTAX 



All objects declared before the first .PROC or .FUNC *r^ 
available for use throughout the assembly. No code is allowed to be 
generated before the first .PROC or .FUNC. The symbol table is reduced 
at the beginning of each .PROC or . FUNC to the point where it was at 
the start of the first .PROC or .FUNC. 

Only labels may begin in the first column and may optionally 

be followed by a colon. Local labels myit have 'S' in the first 

column and may be up to 8 digits long. If the statement has no label, 
the first column must contain a space. 

All assemblies must end with a . END. However each .PROC or 
.FUNC need not because they *re ended by the occurrence of the next 
.PROC or .FUNC. Only the last one needs a .END. 
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A general Tailr^i di-aQTa.-n for all asc.jchly files looks like: 



any non-code 
^encreiln^ 
operations 



f! — * 


• proc 


i 




S — p 


.FUNC 



code generating 

operations ana 

directives 



.END 
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The non-code generating operation* av: 

.EQU, .DEF, .REF. .PACE, .TITLE, .LIST, .MACRO, .IF 

The code generating operations arm any other pseudo-ops and all 
assembly code for the program. 

1.9. 3 EXPRESSIONS (one-pass restrictions) 

Since the Adaptable Assembler makes only one pass through the 
source code, something must be assumed (upon encountering an undefined 

identifier in an expression) about the nature of the identifier in 

order for the assembly to continue. It is therefore assumed that the 

undefined identifier will eventually be defined as a label, which is 

the most probable case. Any identifier which is not a label must be 
defined before it is used. 

Labels may be equated to an expression containingeither labels 
and/or absolutes. One must define a label before it is used unless it 
will simply be equated to another label. Local labels may not occur on 
the left hand side of an equate (.EQU). 

Local labels are mainly used to jump around within a small 
segment of code without having to use up storage arma needed by regular 
labels. The local label stack may hold up to 21 labels. These arm cut 
back every time upon encountering a regular label and are thus rendered 
invalid. An example of the use of local labels is shown below, the 
jump to label $04 being illegal. 

♦03 STA 4 i LEGAL USE OF LOCAL LABEL 

JP NZ, $03 

JP NZ, $04 ) ILLEGAL USE OF LOCAL LABEL 
REALLAB . EQU $ 
$04 . EQU $ 
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Identifier* are character strings starting with an alpha 
character. Other characters must be alphanumeric or the ASCII 
underline ('_'>. Only the first 8 characters *v used by the assembler 
even though more may be entered. 

The following operators can be used in expressions processed 
by this assembler. 

For unary operations: 
'♦' plus 
'-' minus 
"*' ones complement 

For binary operations: 

'+' plus 

'-' minus 

" w exclusive or 

'♦' multiplication 

'/' truncating division 

'X' remainder division 

'1 * bit wise 

'fc' bit wise 

'«' equal (valid only in . IF ) 

'O' not equal (valid only in . IF ) 

All constants must start with an integer 0-9. 
All operations are applied to whole words. 

The default radix is Hex for the Z80 version and Octal for the PDP-11. 

JL9. 4 ASSEMBLER DIRECTIVES: OVERVIEW 

Assembler directives (also referred to as "pseudo-ops") allow 
the programmer to instruct the assembler to do various functions other 
than provide direct eaecutable code. The following directives mv 
common to all UCSD versions but may differ from manufacturer's standard 
nyntax. 

In the following pseudo-op descriptions square brackets/ C3. 
«re used to denote optional elements. If an element type is not listed 
it cannot be used in that situation. As usual, angle brackets. O. 
denote meta symbols. 

For example: ClabelD .ASCII "<charcater string>" 

indicates that a label may be given but is not necessary 
and that between the double quotes must go the character 
string to be converted (not necessarily the words 
"character string"). 
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The following terms represent general concepts in the 
explanation of each directive: 

value ■ any numerical value, label, constant, expression. 

valuelist - is a list of one or nori values separated by commas. 

idlist ■ a list of one or mare identifiers separated by commas. 

expression ■ any legal expression as defined in Section 1.9.3. 

identifier: integer list ■ a list of one or more identifier-integer 

pairs seperated by commas. The 
colon-integer is optional in each pair 
and the default is 1. 

Small examples are included after each pseudo-op definition to 
supply the user with a reference to the specific syntax and form of 
that directive. The larger example, included in section 3.3.2, is used 
to show the combined use and detailed examples of directive operations. 



1. 9. 4. 1 ROUTINE DELIMITING DIRECTIVES 

Every assembly must include at least one . PROC or . FUNC, and 
one .END, even in the case of stand-alone code which will not be linked 
into a Pascal host(i e. an interpreter). The most frequent use of the 
assembler, however, will be small routines intended to be linked with a 
Pascal host. In this case, . PROCs and . FUNCs are used to identify and 
delimit the assembly code to be accessed by a Pascal external procedure 
or function. The .END appears at the end of the last routine and 
serves as the final delimiter. 

References to a .PROC or .FUNC are made in the Pascal host by 

use of EXTERNAL declarations. At the time of this declaration the 

actual parameter names must be given. For example* if the Pascal 
declaration is: 

PROCEDURE FARKLE(X,Y: REAL) i EXTERNAL; 

the associated declaration for the .PROC would be 

. PROC FARKLE, 4 

A .PROC, .FUNC, or any assembly routine should be inserted into 
the *SYSTEM. LIBRARY {execute LIBRARIAN) so that it can be referenced by 
the *SYSTEM. LINKER and linked in at run time. An alternate method would 
be to execute the LINKER and tell it what files to link in. Either 
method works. However, if the Pascal host is updated and the assembly 
routines aren't in the *SYSTEM. LIBRARY, the linker will have to be 
executed after each update. Therefore, we suggest that the routines be 
inserted into the *SYSTEM. LIBRARY to avoid this repetition. If the 
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linker 1« called automatically using the Run command, it mill search 
the *SYSTEM. LIBRARY for the appropriate definition of the assembly 
routine and link the two together. 



PROC 



Identifier, a procedure that returns no value. A .PROC is 
ended by the occurrence of a new . PROC, . FUNC, or .END. 



FORM: 



.PROC <identifier>C, expression] 

[expressions indicates the number of words 
of parameters expected by this routine. 
The default is O. 



EXAMPLE: 



.PROC DLDRIVE.2 



FUNC 



Identifies a function that returns a value. 
Two words of space to be used for the function value 
will be placed on the stack before any parameters . 
A .FUNC ill ended the same way as the .PROC. 



FORM: 



.FUNC Odentif ier>C. expression] 

[expression] indicates the number of words 
of parameters expected by this routine. 
The default is 0. 



EXAMPLE: 



FUNC RANDOM. 4 



.END 



Used to denote the physical end of an assembly. 



1.9.4.2 LABEL DEFINITIONS AND SPACE ALLOCATION DIRECTIVES 



.ASCII Converts character values to ASCII equivalent byte constants 
and places the equivalents into the code stream. 

FORM: ClabelD .ASCII "^character string>" 

where <character string> is any string of printable 
ASCII characters! including a space. The length 
of the string must less than 80 characters. The 
double quotes are used as delimeters for the 
characters to be converted. If a double quote is 
desired in the string, it must be specifically 
inserted using a .BYTE. 
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EXAMPLE: .ASCII "HELLO" 

for the insertion of AB"CD the code must be 
constructed as: 

.ASCII "AB" 
. BYTE 34 
.ASCII -CD" 

Note: The 34 is the ASCII number for a double quote in hei. 
The representation actually used will depend on the 
default radix of the particular machine in use. 

BYTE Allocates a byte of space into the code stream for each value 
listed. Assigns the associated label, if any, to the address 
at which the byte was stored. Expression must have a value 
between -128 and +235. If the value is outside of this range 
an error will be flagged. 

FORM: Clabeia .BYTE Cvaluelist3 

the default for no stated value is 0. 

EXAMPLE: TEMP . BYTE 4 

the associated output would be: 04 

BLOCK Allocates a block of space into code stream for each value 
listed. Amount allocated is in bytes. Associates the label 
<if present) with the starting address of the block allocated. 

FORM: ClabslJ .BLOCK <length>C» value3 

<ltngth> is the the number of bytes to hold the <value> 
specified. The default for no stated value is 0. 

EXAMPLE: TEMP . BLOCK 4, 6 

the associated output would be: 
06 

06 ( four bytes with the value 06 ) 
06 
06 
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WORD Alior-st**^ a word of space in the code stream for each value 
in the v.>Iueli3t. Associates the declaration label with the 
word spsce allocation. 



FORM: Clabel'3 .WORD <valuelist> 
EXAMPLE- TEMP . WORD 0, 2, 4. . . . 



the associated output would be: 
0000 
0002 
0004 (words with these values in them ) 



EXAMPLE: LI 



WORD L2 



L2 . EGU t * represents the LC on the ZBO 

. WORD 5. 



if LC was 50 at the .EQU 

the associated outout would be: 



0050 



(* assignment due to the L2 value *) 



0005 (* assignment due to the .WORD 5 ») 



.EQU 



Assigns a value to a label. Labels may be equated to an 
expression containing either lables and/or absolutes. One 
must define a label before it is used unless it will simply 
be equated to another label. A local label may not appear 
on the left hand side of an equate ( .EQU ). 



FORM: 
EXAMPLE: 



<label> 
BASE 



EGU 
EGU 



<value> 
R6 



ORG 



S»tr. th«» current location counter (LC) to the value of the .ORG. 
It would normally (<o used in a stand-alone program. For eiample* 
thero is onr ..CFG vn the cCFO/ZSO interpreter. 

.ORG -ib ctivicntly implemented only iofi advancing the location counttx. It <u> 
not cuAA&vitly poaihlt to let the location counttA back. 



Page 109 



1. 9. 4. 3 



MACRO FACILITY DIRECTIVES 



A macTo is a named section of text that can be defined once and 
repeated in other places simply by using its name. The text of the 
macro may be parameterized, so that each invocation results in a 
different version of the macro contents. 



At the invocatio 
of parameters which mm 
last onci which is termi 
(-**')>. At invocation t 
(conceptually speaking) 
parameter substitution, 
greater that zero) occur 
parameter is substituted 
from the parameter befor 
the macro definition to 
invocation, a null strin 



n point, the macro name 
delimited by commas 
nated by end of line or 
ime, the text of the ma 
by the assembler after 
Whenever Xn (where n is 
s in the macro def initi 
Leading and trailing 
e the substitution. If 
a parameter not provide 
g is substituted. 



is followed by a list 
(except for the 

the comment indication 
cro is inserted 
being modified by 

a single decimal digit 
on, the text of the nth 

blanks »T9 stripped 

a reference occurs in 
d in a particular 



A macro definition may not contain another macro definition, 
definition can certainly, however, include macro invocations. This 
"nesting" of macro invocations is limited to five levels deep. 

The expanded macro is always included in the listing file (if 
listing is enabled at the point of invocation). Macro expansion text 
is flagged, in the listing, by a '#' just left of each expanded line. 
Comments occurring in the macro definition *T9 not repeated in the 
expansion. 



.MACRO Indicates the start of a macro and gives it an identifier. 



ENDM 



Indicates the end point of a MACRO. 



FORM: 



MACRO <identifier> 

(macro body) 
ENDM 



EXAMPLE: 



MACRO HELP 
ST A 7,1 
LDA 'A2. 

. ENDM 



i < comment > 
i < comment > 



The listing where the macro call is made may look like: 
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HELP 


FIRST, SECOND 


ft 


STA 


FIRST 


« 


LDA 


SECOND 



Tht statement HELP, calls the macto and sends it two 
parameters. FIRST and SECOND. These parameters *rm in turn 
referenced inside the macro using the identifiers XI for the 
variable FIRST/ and %2 for the variable SECOND. 

I. 9. 4. 4 CONDITIONAL ASSEMBLY DIRECTIVES 

Conditionals sre used to selectively exclude or include 
sections of code at assembly time. When the; assembler encounters an 
.IF directive/ it evaluates the associated Expression. In the simplest 
cast, if the expression is false, the assembler simply discards the 
text until a .ENDCis reached. If there is 4n .ELSE directive between 
the .IF and . ENDC directives, the text before the .ELSE is selected if 
the expression is true, and the text after the .ELSE if the condition 
is false. The unassembled part of the conditional will not be included 
in any listing. Conditionals may be nested. 

The conditional expression takes one of two forms. The first 
is the normal ar ithmetilc/log ical expression used elsewhere in the 
assembler. This type of expression is considered false if it 
evaluates to rero; true otherwise. The secoind form of conditional 
expression is comparison for equality or inequality (indicated by '«' 
•nd 'O*. respectively]!. One may compare strings, characters, or 
arithmetic/logical expressions. 

. 2F Identifies. the beginning of the conditional. 

.ENDC Identifies the end of a conditional .IF 

.ELSE Identifies the alternate to the .IF. If the conditional 
expression in egual to O then the else is used. 

FORM: C]iabel3 .IF <expression> 



ELSE (* only if there is an else •) 



ENDC 
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where the expression is the conditional expression to be met. 



EXAMPLE: 



.IF LABEL1-LADEL2 i arithmetic expression 
i This text assembled only if subtraction 
i result is now zero 



.IF "XI* ""STUFF" i comparison expression 
* This text assembled if subtraction above 
i was true land if text of first parameter 
i (assume we »T9 in macro ) is equal to "STUFF 1 

. ENOC i terminate nested cond. 



. ELSE 

i This text assembled if subtraction result 
i was xero 



ENDC 



i terminate outer level 
i conditional 



1. 9. 4. 3 



PASCAL HOST COMMUNICATION DIRECTIVES 



The directives .CONST. .PUBLIC, and .PRIVATE allow the sharing 
of information and data space between an assembly routine and a Pascal 
host. These external references must eventually be resolved by the 
Linker. Refer to Section 1.8 Linker, for further details. 



CONST Allows access of globally declared constants in the PASCAL host 
by the assembly routine. .CONST can only be used in a program 
to replace 16 bit relocatable objects. 



FORM: 



EXAMPLE: 



CONST 



<idlist> 



(* see example after . PRIVATE *) 



PUBLIC Allows a variable declared in tt|>e global data segment of 

the PASCAL host to be used by *n assembly language routine 
and the host program. 
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FORM: .PUBLIC <idlict> 

EXAMPLE: (* see example after .PRIVATE *) 

PRIVATE Allows variables of the assembly routine to be stored in the 

global data segment and get be inaccessable to the Pascal host. 

These variables, retaxn their values for the entire execution of 
the program. 

FORM: .PRIVATE Odent if ier: integer list> 

the integer is used to communicate the number of 
words to be allocated to the identifier. 

EXAMPLE: (* for . CONSTi .PRIVATE, .PUBLIC *) 

Given the following Pascal host program: 

PROGRAM EXAMPLE; 

CONST SETSIZE-=50; LENGTH=0O; 

VAR I. J, F, HOLD. COUNTER, LDC: INTEGER i 
LST1: ARRAYCO. . 93 OF CHARi 

BEGIN 



END. 
and the following section of an assembly routine: 



CONST 

PRIVATE 

PUBLIC 



LENGTH 
PRT,LST2:9 
LDC, I, J 



This will allow the const LENGTH to be used in the assembly 
routine almost as if the line LENGTH . EQU 90 had been 
written. (Recall the limitation mentioned above for the use 
.CONST identifiers. ) The variables LDC, I. J to be used by both 
the Pascal host and the assembly routine, and the variables 
PRT, LST2 to be used only by the assembly routine. Further, 
the LST2.9 causes the variable LST2 to correspond with the 
beginning of a 9 word block of space in the global data 
segment. 
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1. 9. 4. 6 EXTERNAL REFERENCE DIRECTIVES 

_ The use of .DEF and . REF is similar to that of .PUBLIC. 




cannot be expected to flag these errors, since it has no knowledge of 
other assemblies. 

. DEF Identifies a label that is defined in the current routine 
and available to be used in other . PROCs or .FUNCs. 

FORM: .DEF <identif ier 1 ist> 

EXAMPLE: (* see listing in section 3.3.2.3 for example •) 

• REF Identifies a label used in this routine which has been 
declared in an external .PROC or . FUNC with a .DEF. 
During the linking process* corresponding . DEFs and . REFs 
are matched. 

FORM: .REF <ident if ier 1 ist> 

EXAMPLE: <* see listing in section 3.3.2.3 for example *> 

Note: The .PROC and the . FUNC directive also generates 
a .DEF with the same name. This allows assembly 
procedures to call .PROC and .FUNCs if they have 
been defined in a . REF. 

1. 9. 4. 7 LISTING CONTROL DIRECTIVES 

.LIST Allows selective listing of assembly routines. 

It If no output file is declared then the default is CONSOLE: 
. NOLI ST when a .LIST is encountered The . NOLI ST is used to turn off 

the .LIST option. Listing may be turned on and off 

repeatedly within an assembly. 

FORM: .LIST or . NOLI ST 

.PAGE Allows the programmer to explicitly ask for top of form 
page breaks in the listing. 

±b no lifting output £ite. it tpztibiid thzn all .LIST and .N0L1ST 
dOie.cM.veA one. 6-imply <L§nofie.d. 
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FORM: . PAGE 

• TITLE Allows the titling of each page if desired. The title may be up 

to EO characters in length. At the start of each procedure the 

title is set to blanks and must be reset if title is desired. 
The title, 

INTERP SYMEOLTABLE DUMP 

shown in Section 1.9.1 was caused by a .TITLE directive. *• 

FORM .TITLE <title> 

where <title> is a string 

EXAMPLE . TITLE GRC12 interpreter 

1.9.4.8 FILE DIRECTIVES 

.INCLUDE Causes the indicated source file to be included at that point. 

FORM: .INCLUDE <file ident i f ier. TEXT> where the file 

identifier is any file to be included. Only spaces 
^tb allowed between the end of the file name and the 
end of the Include line. 

CORRECT EXAMPLE: . INCLUDE SHORTSTART. TEXT 

CORRECT EXAMPLE: . INCLUDE SHORTSTART. TEXT 

$ calls starter 

IN-CORRECT EXAMPLE: .INCLUDE SHORTSTART. TEXT i calls starter 



For a list of general errors and also notes on the Z80 and PDP-11 based 
machines see Table 6. 

** hlotz: The, title, ii only cleasmd at the. ttanX oi the. iile.. In Auction 1.9. 1 the. title. 
SYWBQLTABLE PUMP icoa not *e.t by a .TITLE dhttctive.. That heading it alwatji 
u&td on page* coy\tOA.ning lymbottablt dumpi. Upon abiembling a {usitheA 
pKotcduAe. the. heading p-iinte.d JiztuAni to what it tca& t>eX to be.&o>ii the. 
Aymboltablz dump. 
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♦♦a*****************.* «*# 

« SYSTEM INTRINSICS * * Sect 

***************♦#♦»♦* 



******** 



******* 
ion 2. 1 * 
******* 



Version 1.5 September 1978 



WARNING 



Most of the" UCSD intrinsics assume that users art fluent in the 
use of PASCAL and are experienced in the use of the system. Any 
necessary range or validity checks are the responsibility of the user. 
Since some of these intrinsics do no checking jfor range validity* they 
may easily cause the system to die a horrible death. Those intrinsic* 
which are parti cularily dangerous are noted as such in their 
descriptions. 

PARAMETERS 

Required parameters are listed along wjith the function/procedure 
identifier. . Optional parameters Are in Csquare brackets}. The default 
values for these are in -Cmetabrac kets> on the line below them. 



NOTE 



Following Ave some definitions of terms used in these 
documents. They tend to take the place of formal parameters in the 
dummy declaration headers that preface each dei 
routine* or set of routines. 

ARRAY : a PACKED ARRAY OF CHARacters 

BLOCK : one disk block, C512 bytes> ! 



scription of a particular 



BLOCKS 
BLOCKNUMBER 

BOOLEAN 

CHARACTER 

DESTINATION 

EXPRESSION 
FILEID 



INDEX 

NUMBER 
RELBLOCK 

6 I MPL VARIABLE 



in INTEGER number of blocks 
in absolute disk block addre 



ss 



any BOOLEAN value 

any expression which evaluates to a character 

a PACKED ARRAY OF CHARacters; to write into or 

a STRING* context dependent 
part or all of an expression* to be specified 
a file identifier* must be 

VAR fileid: FILE OF <type>i 
or TEXT; 
or INTERACTIVE; 
or FILE; 
an index into a STRING or PACKED ARRAY OF CHARacters* 

context dependent or as specified, 
a literal or identifier whose type is either INTEGER 

or REAL, 
a relative disk block address* relative to the start 
of the file in context* the first block being 
block zero, 
any declared PASCAL variable which is of one of the 
following TYPEs: 
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SIZE 

SOURCE 

SCREEN 
STRING 



TITLE 
UNXTNUMBER 

VOL ID 



:eger 

as a 
ied. ** 



BOOLEAN CHAR REAL STRING 
or PACKED ARRAYt. . 3 OF CHAR 
an INTEGER number of bytes or characters; any int 
valun 

a STRING or PACKED ARRAY OF CHARacters to be used 

read-only array, context dependent or as specif 
an array 9600 bytes long; or as needed, 
any STRING, call-by-value unless otherwise specified, 

i. e. may be a quoted string, or string variable 

or function which evaluates to a STRING 
a STRING consisting of a file name 
physical device number used to determine device handler 

used by the interpreter 
a volume identifier, STRI^GC73 



.c.e. .en tticng uvtAln&lc*, SOURCE li going to have, to 6e a Atnlng, In intrUnila that 
dual (tilth packed oaamj* o£ clwAactvu, lit may be Utha. A woid o£ caution 
about using STRJNGi In in&iuulcs that expect chatacttA. aAAay&, the zvmcth 
zlimznt 0& the fining li -t/ie length 6c/.te, wtUch maij cause tiiz pxogAOmmcA 
tome, unexpected! pioblemt. (O/ete ue not, awa,\t 04 that {act'.) id. 
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* STRING INTRINSICS • * Section 2. 1. 1 * 



Version I. 5 September 197B 
FUNCTION LENGTH ( STRING ) : INTEGER 



Return* the integer value of the length of the STRING. 
Example: 



GEESTRING :- '1234567') 
WRITELN(LENGTH(GEESTRING). ' 



'.LENGTH( ">)i 



Will print: 
7 
FUNCTION POS ( STRING , SOURCE ) 



INTEGER 



This function returns the position jof the first occurrence of 
the pattern in SOURCE to be scanned. The INTEGER value of the position 
of the first character in the matched pattern will be returned; or if 
the pattern was not found* zero will be returned. Example: 

STUFF :» 'TAKE THE BOTTLE WJTH A METAL CAP'i 

PATTERN :« 'TAL'j 

WR I TELN( POS (PATTERN. STUFF) )ji 

Will print: 

26 

FUNCTION CONCAT < SOURCES ) : STRING 

There may be any number of source strings separated by commas. 

This function returns a string which is the concatenation of 
All the strings passed to it. Example: 

SHORTSTRING :« 'THIS IS A STRING'} 
LONGSTRING :« 'THIS IS A VERY LONG STRING. '» 
LONGSTRING :» CONCAT ( 'START ', SHORTSTR I NG, '-', LONGSTRING); 
WR I TELN ( LONGSTR I NG ) » 

Will print: 



START THIS IS A STftlNG-THIS IS A VERY LONG STRING. 
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FUNCTION COPY ( SOURCE , INDEX , SIZE ) : STRING 

This function returns a string containing SIZE character* 
copied from SOURCE starting at the INDEXth position in SOURCE. 
Example: 

WRITELN KEEP S0METHINC HERE ' ; KEP * : " C0PY<TL,P0S<'S'.TL>.9>, 

Will print: 

SOMETHING 

PROCEDURE DELETE < DESTINATION , INDEX . SIZE ) 

This procedure removes SIZE characters from DESTINATION 
starting at the INDEX specified. Example: 

OVERSTUFFED :- 'THIS STRING HAS FAR TOO MANY CHARACTERS IN IT U 
DELETE ( OVERSTUFFED, POS ( 'HAS ' , OVERSTUFFED ) +3, S ) * 
WR I TELN < OVERSTUFFED ) t 

Mill print: 

THIS STRING HAS MANY CHARACTERS IN IT. 

PROCEDURE INSERT < SOURCE , DESTINATION . INDEX ) 

This inserts SOURCE into DESTINATION at the INDEXth position in 
DESTINATION. 

Example: 

ID :- 'INSERTIONS 'J 
MORE :* ' DEMONSTRATE'; 
DELETE ( MORE, LENGTH < MORE >, 1 > i 
INSERT (MORE, ID. POS ( '10', ID)>j 
WRITELN(ID)i 

Will print: 

INSERT DEMONSTRATIONS 
PROCEDURE STR ( LONG , DESTINATION ) 
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This convert* the long integer LONG into a string. The 
resulting string is placed in DESTINATION. See section 3.3.3 for wore 
about the use of long integers. 



Example: 



INTLONG := 102039503* 

STR< INTLONG, INTSTRING>> 

INSERTC. ', INTSTRINC, PREDCLENCTH< INTSTRING) > >> 

WRITELNC*'. INTSTRINOi 

Will print: 

♦ 1020395. 03 



Note about using strings and string functions: 

In order to maintain the integrity of the LENGTH of a string, 
only string functions or full string assignments should be used to 
alter strings. Moves and/or single character assignments do not affect 
the length of a string m hich means it probablu becomes ii/rona . The 
individual elements of STRING *ve of tgpe CHAR and may be indexed 
1. . LENGTH (STRING). Accessing the string outside this range will have 
unpredictable results if range-checking is of* or cause a run-time 
error <1> if range checking is on. 
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- Notes - 
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* input A;rj output intrimjIct; * * 
Version I. 5 September 



Section 2. 1 . 2 * 
197B 



PROCEDURE RESET < FILEID, CTITLE3 V; 
PROCEDURE REUNITE ( FILEID, TITLE )> 

Thesp procedures open files for readi 
the file as open. The FILEID mag be any PASC 
the TITLE is a string containing any legal fi 



rug and writing and mark 
AL structured file, and 
le title. 



The difference between them is that REWR 
on disk for output files; RESET simply marks 
open for I/O. (Note: i* the device specified 
directory structured device/ e. g. PRINTER: » 
for input, output, or both in either case. ) I 
open, and another RESET or REWRITE is attempt 
returned in ICRE3ULT. The file's state will 



JRITE creates a new file 
an already existing file 

in the title is a non- 
then the file is opened 
f the file was already 
ed to it. an error will be 
remain unchanged. 



RESET (FILEID) without optional string parameter "rewinds" the 
file by setting the file pointers back to the beginning (zero th 
record) of the file. The boolean functions EOF and EOLN will now be 
set by the implied GET in RESET. 

These procedures behave differently with files of type 
INTERACTIVE. RESET en files of types other tjhan INTERACTIVE will 



initial GET to the file, setting 

record in the file (as described in Jsnsen 

of type INTERACTIVE will not do an initial 



the window variable 



GET 



Wirth). 



to the 
RESET 



do an 
first 
on a file 



PROCEDURE UNITREAD ( UNITNUMBER. ARRAY. LENGTH, CBLOCKNUM3ER3. CINTEGER3 ); 
PROCEDURE UNXTWRITE < UNITNUMBER. ARRAY, LENGTH. CBLOCKNUh2ER3. CINTE0ER3 ); 

■C sequential > < > 

THESE APE DANGEROUS INTRIN3ICS 

i 
These procedures are the low-level procedures which do I/Os to 
various devices. The UNITNUMBER is the integer name of an I/O device. 
The ARRAY in any declared packed array, which may be subscripted to 
indicate a starting position. This is used as the starting address to 
do the transfers from/to. The LENGTH is an integer value designating 
the number of tytcs to transfer. The ELOCKNUMI3ER is required only when 
using a block-structured device (i.-e. a disk? and is the absolute 
blocknumbcr at which th? transfer will start jfr?n/tn. If the 
BLOCKNUrDER is left out,, is assumed. The frvrfiGER value is optional 
(assumed 0) and indicates (if 1) that the transfer is to be done 
asynchronously. Thp blotknumber is not necessary. A ',,n' ictll be 
sufficient. (See UNITE US Y and UNI TWA IT. ) {*w>iew using the, euynckxonouA I/O 
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FUNCTION UNITBUSY ( UNITNUMBER ) : BOOLEAN; 

This function returns a BOOLEAN value, indicating if TRUE that 
the device specified is waiting for an I/O transfer to complete. 

Example: 

UNITREAD(2-Cnon-echoing keyboard}-, CHC03. 

Kfor one character)-, -Cno block no. >» 1 {asynchronous}-); 
WHILE UNITBUSY(2>{Uhile the READ has not been completed)- DO 
WR I TELN( OUTPUT. 'I am waiting for you to type something')* 
WRITELN (OUTPUT* 'Thank you for typing a '.CHC03); 

Execution of this example will continuously type out the line 
'I am waiting for you to type something' until a character is struck on 
the keyboard. Suppose a '!' were typed. the message 'Thank you for 
typing a !' will then appear* and program execution will proceed 
normally. 

PROCEDURE UNITWAIT ( UNITNUMBER >; 

This waits for the specified device to complete the I/O in 
progress. It can be simulated by: 

WHILE UNITBUSY(n) DO {waste a smali amount of time>; 

PROCEDURE UNITCLEAR ( UNITNUMBER ); 

UNITCLEAR cancels all I/Os to the specified unit and resets the 
hardware to its power— up state. 

FUNCTION BLOCKREAD ( FILEID. ARRAY, BLOCKS* CRELBLOCK3 ) : INTEOERi 
FUNCTION BLOCKWRITE ( FILEID. ARRAY. BLOCKS. CRELBLOCK3 ) : INTEGER; 

{ sequential > 

These functions return an INTEGER value equal to the number of 
blocks of data actually transferred. The FILE must be an untyped file 
(i.e. F: FILE; >. The length of ARRAY should be an integer multiple of 
bytes-per— disk-b lock. BLOCKS is the number of blocks you want 
transferred. RELBLOCK is the blocknumber relative to the start of the 
file* the xeroeth block being the first block in the file. If no 
RELBLOCK is specified, the reads/writes will be done sequentially. A 
random access I/O moves the file pointers. CAUTION should be exercised 
when using these, as the ^rraq bounds 9V9 not heeded. EOF(FILEID) 
becomes true when the last block in a file is read. 
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PROCEDURE CLOSE ( FILEID OPTION ); 

OPTION may be null or ', LOCKS or ', NORMAL', or ', PURGES or 
'# CRUNCH'. (Note the commas!) 

If OPTION it null then a NORMAL close is done, i.e. CLOSE 
• imply tett the file state to closed. If the file was opened using 
REWRITE and is a disk file, it is deleted from the directory. 

The LOCK option will cause the disk file associated with the 
FILEID to be made permanent in the directory if the file it on a 
directory-structured device and the file was opened with a REWRITE) 
otherwise a NORMAL close is done. 

The PURGE option will delete the TITLE associated with the 
FILEID from the directory. The unit will go off-line if the device is 
not block structured. 

The CRUNCH option is as yet undefined in what it will do 

The intent is to lock a file with the minimum number of blocks of 
useful information. 

All CLOSES regardless of the option will mark the file closed 
and will make the implicit variable FILEID" undefined. CLOSE on a 
CLOSEed file causes no action. 



FUNCTION EOF (FILEID) : BOOLEAN* 
FUNCTION EOLN (FILEID) : BOOLEAN! 

If (FILEID) is not present, the fileid INPUT is assumed (e.g. 
IF EOF THEN... ). EOLN and EOF return false after the file specified is 
RESET. They both return true on a closfd file. When EOF (FILEID) is 
true, FILEID" is undefined. When GET (FILEID) sets FILEID" to the EOLN 
character or the EOF character, EOLN (FjLEID) will return true, and 
FILEID" (in a FILE OF CHAR) will be set to a blank. If, while doing 
puts or writes at the end of a file, the file cannot be expanded to 
accommodate the PUT or WRITE, EOF(FILEID) will return true. 

FUNCTION IORESULT :; INTEGER) 

After any I/O operation, IORESULT contains an INTEGER value 
corresponding to the values given in Table 2. 
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PROCEDURE GET ( FILEID >; 
PROCEDURE PUT ( FILEID ); 

These procedure* ere used for operations on typed files. A 
typed file is any file for which a typf is specified in the variable 
declaration, ie. 'FILEID : FILE OF <type>'. This is as opposed to 
untyped files which *rw simply declare^ as: ' FILEID: FILE; '. 'F: FILE 
OF CHAR' is equivalent to 'F: TEXT'. In a typed file each logical 
record is a memory image fitting the description of a variable of the 
associated <type>. 

GET (FILEID) will leave the contents of the current logical 
record pointed at by the file pointers in the implicitly declared 
"window" variable FILEID^ and increment the file pointers. 

PUT (FILEID) puts the contents of FILEID^ into the file at the 
location of the current file pointers and then updates those pointers. 

PROCEDURE READ<LN> ( FILEID. SOURCE )i 
PROCEDURE WRITE<LM> ( FILEID, SOURCE )? 

These procedures may be used only on TEXT (FILE OF CHAR) or 
INTERACTIVE files for I/O. If 'FILEID* ' is omitted. INPUT or OUTPUT 
(whichever is appropriate) is assumed. A READ(STRING) will read up to 
and not including the end-of-lijne character (<a carriage return>) and 
leave EOLN(FILEID) true. This means tjtat any subsequent READs of 
STRING variables will return the null string until a READLN or 
READ(chararacter ) is executed. 

There are three files of type INTERACTIVE which mvtt 
predeclared: INPUT. OUTPUT, and KEYBOARD. INPUT results in echoing of 
characters typed to the console device. KEYBOARD does no echoing and 
allows the programmer complete control of the response to user typing. 
OUTPUT allows the user to halt or flush the output. 

PROCEDURE PAGE ( FILEID )* 

This procedure, as described in Jensen fc Mirth (ibid. ). sends a 
top-of-form (ASCII FF) to the file. 

PROCEDURE SEEK ( FILEID. INTEGER )i 

This procedure changes the file pointers so that the next GET 
or PUT from/to the file uses the INTEG^Rth rtcord of FILEID. Records in 
files *T9 numbered from 0. A GET or PUT must be executed between 
SEEK calls since two SEEKs in a row may cause unexpected, unpredictable 
junk to be held in the window and associated buffers. 
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* LOW LEVEL GRAPHICS INTR1NSICS + * Section 2. 1. 4 # 
Version I. 5 September 197B 

CAUTION i*u&td only uiitli tht TERAK 8510a micnocjompuZvi*) 

These routines do no range checking of the parameters they are 
passed. If any of the paramters are "out of range", these routines 
will happily move bit patterns throughout main memory, much to the 
dismay of the operating system and your program. 

See Table 4 for modes and penstates for these intrinsics. 

The DRAW intrinsics arc available only for the Terak 8510a in 
this release. Additional display units will be supported in later 
releases, but no details are currently available. Probable implementa- 
tion(s): Tektronix 4006. 

PROCEDURE VmiBLOCKlVAK SOURCE; SRCR0tt',SRCX,SRCV INTEGER; VAR PEST; VSTROW,VSTX,VSTy '.INTEGER; 

CNTX, CNTY, MOPE : INTEGER ) , 

(* none of these are optional *) 

This procedure is written for the Terak 8510a graphic display 
mode. The TERAK screen displays words consecutively with the most 
significant bit of the word on the right. DRAWBLOCK will work only on 
screens whose graphics operates in this manner. WARNING: No range 
checking is performed. 

DRAWBLOCK transfers a bit matrix SOURCE, which starts on an 
word boundary, to a specified point (STARTY, STARTX) in the bit matrix 
SCREEN. All parameters are integers except SCREEN, which is a bit 
matrix of width R0WSI2E (i.e. BITMAP: PACKED ARRAYtO. . MAXROWD OF PACKED 
ARRAYCO. . ROWSIZE-13 OF BOOLEAN,). The SOURCE is SIZEX bits wide by 
SIZEY bits high. The first COPYX bits of each row are copied into the 
destination. MODE is defined in TABLE 4. 

VAR 
PROCEDURE DRAWLINE (RANGE: INfEGER; VAR SCREEN; ROitMlVTH, XSTART, XSTART, PELTAX, 

PELTAV, PENSTATE: INTEGER); 
(* none of these are optional *) 

In order the parameters are: INTEGER IDENTIFIER. ARRAY 
IDENTIFIER, and the remaining six. INTEGER EXPRESSION. RANGE will 
contain the results of a Radar scan. This parameter is untouched 
unless PENSTATE is sent as 4. The value returned is the number of dots 
that would have been drawn before encountering an obstacle. SCREEN may 
be subscripted to determine a starting position in the array. ROWWIDTH 
is the width of SCREEN in number of uords> this determines how DRAWLINE 
will consider the rec tangular i ty of the array. XSTART is the starting 
horizontal coordinate; YSTART is the starting vertical coordinate. 
DELTAX is the distance to move in the horizontal plane. DELTAY is the 
distance to move in the vertical plane. PENSTATE controls the action 
taken; see TAULE 4. 

**UotZ'- Jun ohdzA to aie thcAt Koutinu, tht u&eA trmt add 

thz declaration* at above., and tlw tieAciveA vooid EXTERNAL; 
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♦ **♦*#«**■«*•##♦**♦♦»»»*♦«*»♦*♦«♦* * ## #».»4*» ## it**************** 

* CHARACTER ARRAY MANIPULATIONS INTRINSICS * * Section 2. 1. 5 * 

***♦********#**♦****#*♦«*♦»#*»**♦»»♦***#*♦♦» #**♦**♦****♦*♦»»» 

Version I. 5 September 1978 



CAUTION 

These intrinsic* are all byte oriented. Use them with care. 
Read the descriptions carefully before trying them out as no range 
checking of any sort is performed on the parameters passed to these 
routines. The programmer should know exactly what he is doing before 
he does it since the system does not protect itself from these 
operations. 

FUNCTION SCAN ( LENGTH, PARTIAL EXPRESSION, ARRAY > : INTEOERi 

This function returns the number of characters from the 
starting position to where it terminated. It terminates on either 
matching the specified LENGTH or satisfying the EXPRESSION. The ARRAY 
should be a PACKED ARRAY OF CHARACTERS and may be subscripted to denote 
the starting point. If the expression is satisfied on the character at 
which ARRAY is pointed* the value returned will be zero. If the length 
passed was negative, the number returned will also be negative, and the 
function will have scanned backward. The PARTIAL EXPRESSION must be of 
the form: 

"O" or "■" followed by {character expression> 

Examples: 

Using the array: 

DEM :« ' THE TERAK IS A MEMBER OF THE PTERODACTYL FAMILY. ' 

SCAN (-26. = ': ',DEMC303>j 

will return -26 
SCAN (100, O'. ',DEM>; 

will return 5 
SCAN (15**' ',DEMC03)j 

will return 8 



PROCEDURE MOVELEFT < SOURCE, DESTINATION, LENGTH )i 
PROCEDURE MOVERIGHT ( SOURCE, DESTINATION, LENGTH ); 
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These functions do mass moves of bytes for the length 
specified. MOVELEFT starts from the left end of the specified source 
and moves bytes to the left end of the destination. MOVERICHT starts 
from the right ends of both arrays and also moves byte by byte. 

These procedures will optimize to word moves (in the 11 
version) if at all possible. MOVERIGHT never attempts this 
optimization! MOVELEFT will optimize only if the destination is at an 
address below the I/O page. (The reason for not doing word moves to 
the I/O pagt is that some hardware relies on byte addressing in this 
address space. ) 

In short: MOVELEFT starts at the left end of both array* and 
copies bytes traveling right. MOVERIGHT starts at the right end of 
both arrays and copies bytes traveling left. The reason for having 
both of these is if you ar^ working in a single arraii and the order in 
which characters arm moved is critical. The following chart is an 
attempt to show what happens if you use the procedure which moves in 
the wrong direction for your purposes. 

VAR ARAY: PACKED ARRAY CI. .303 OF CHARj 

(♦123456789a 123436789b 123456789c*) 
ARAY: {THIS IS THE TEXT IN THIS ARRAY! 

MOVER IGHT(ARAYC 103. ARAYC13. 10)J 
ARAY: !NE TEXT INE TEXT IN THIS ARRAY', 

MOVELEFT (ARAYC13. ARAYC33. 10) 
ARAY: INENENENENENETEXT IN THIS ARRAY! 

MOVELEFT ( ARAY C 23 3. ARAYC23. 8)i 
ARAY: SNIS ARRAYENETEXT IN THIS ARRAY J 

PROCEDURE FILLCHAR ( DESTINATION. LENGTH* CHARACTER >i 

This procedure takes a (subscripted) PACKED ARRAY OF CHARACTERS 
and fills it with the number (LENGTH) of CHARACTERS specified. This 
can be done by: 

AC03 :« <character expression^ 
MOVELEFT (AC03* AC 13. n-l > J 

but FILLCHAR is twice as fast, as no memory reference is needed for a 
source. 

See the note about word move optimization in the section on 
MOVELEFT. The notes about MOVELEFT also apply to FILLCHAR. 

The intrinsic SIZEOF (Section 2.1.6) is meant for use with 
these intrinsicsj it is convenient not to have to figure out or 
remember the number of bytes in a particular data structure. 
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#**♦******<♦#***#♦*♦#♦*»*♦ ***************** 
• MISCELLANEOUS ROUTINES * * Section 2.1.6 ♦ 

..Version 1.5 September 1978 

FUNCTION SIZEOF ( VARIABLE OR TYPE IDENTIFIER ) : INTEGER; 

This function returns the number of byte* that the "item" 
passed as a parameter occupies in the stack. SIZEOF is particularly 
useful for FILLCHAR and MOVExxxx intrinsics. 

FUNCTION LOG ( NUMBER ) : REAL* 

This function returns the log base ten of the NUMBER passed as 
a parameter. 

PROCEDURE TIME (VAR HIWORD, LOWORD: INTEGER >; 

This procedure returns the current value of the system clock. 
It is in 60th* of a second. (This is somewhat hardware-dependent; we 
assume a 16-bit integer size and 32-bit clock word. The HIWORD 
contains the most significant portion. WARNING! The sign of the LOWORD 
may be negative since the time is represented as a 32-bit unsigned 
number. ) Both HIWORD and LOWORD must be VARiables of type INTEGER. 

FUNCTION PWROFTEN (EXPONENT: INTEGER) : REAL; 

This function returns the value of 10 to the EXPONENT power. 
EXPONENT must be an integer in the range 0. . 37. 

PROCEDURE MARK (VAR HEAPPTR: ^INTEGER) 
PROCEDURE RELEASE (VAR HEAPPTR: "'INTEGER); 

These procedures are used for returning dynamic memory 
allocations to the system. HEAPPTR is of type ^INTEGER. MARK sets 
HEAPPTR to the current top-of-heap. RELEASE sets top-of-heap pointer 
to HEAPPTR. 

PROCEDURE HALT; 

This procedure generates a HALT opcode that* when executed! 
causes a non-fatal run-time error to occur. At this point in 
execution* the Debugger is invoked* therefore* if the Debugger is not 
in core when this occurs* a fatal run-time error* #14* will occur. 



PROCEDURE GOTOXY < XCOORD * YCOORD >; 

This procedure sends the cursor to the coordinates specified by 
(XCOORD, YCOORD). The upper left corner of the screen is assumed to be 
(0*0). This procedure is written to default to a Datamedia-type 
terminal. If your system uses other than a Datamedia or Terak 8510a* 
you will need to bind in a new GOTOXY using the GOTOXY package 
described in Section 4.10. 
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* DIFFERENCES BETWEEN U. C. S. D. PASCAL AND STANDARD PASCAL* # Section 2. 2 # 

**********'M-**#*«-«-******^**««-«-«*»*******«*****«»****«-«-**»*« »**«»**«-»**«-«-*# 

Version I. 5 September 1978 

Thit section it a summary and quick referrence guide which 
notes the *rtm* in which U. C. S. D. Pascal differs from the Standard 
Pascal* and refers the uner to the appropriate documents which explain 
various aspects of U. C. S. D. Pascal. The Standard Pascal referred to by 
this section is defined JLn PASCAL USER MANUAL AND REPORT (2nd edition* 
by Kathleen Jensen and Nilklaus Wirth (Springer-Ver lag. 1975). 

Many of the differences lie in the area of FILES and I/O in 
general. It is recommended that the reader first concentrate upon tha 
sections which describe the differences associated with the standard 
procedures EOF, EOLN, READ, WRITE, RESET, and REWRITE. 

2. 2. 1 CASE STATEMENTS 

Jensen and Wirth on page 31, state that if there is no label 
equal to the value of the case statement selector, the result of the 
case statement is undefined. U. C. S. D. Pascal defines that if there is 
no label matching the value of the case selector then the next 
statement executed is the statement following the case statement. For 
example, the following sample program will only output the line "THAT'S 
ALL FOLKS" since the case statement will -fall through" to the WRITELN 
statement following the case statement: 

PROGRAM FALLTHROUOHi 

VAR CH:CHAR; 

BEGIN 

CH:«'A'j 

CASE CH OF 

'B': WRITELN (OUTPUT, 'HI THERE' )i 

'C: WRITELN (OUTPUT, 'THE CHARACTER IS A "C ' ""> 

END; 

WRITELN (OUTPUT, 'THAT"S ALL FOLKS '>i 
END. 

Contrary to the syntax diagrams for ,<field list> on pages 116— 
118 of Jensen and Wirth, the U. C. S. D. Pascal compiler will not permit a 
semicolon before the "END" of a case variant field declaration within a 
RECORD declaration. See Table 6 for revised syntax diagrams for <field 
listX 
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2. «. 2 COMMENTS 

The U. C. S. D. Pascal compiler recognizes any text appearing 
between either the symbols "<♦- and "•)'? or the symbols "<" and •>• as 
a comment. Text appearing between these symbols is ignored by the 
compiler unless the first character of the comment is a dollarsign, in 
which case the comment is interpreted as a compiler control comment. 
See section 1.6 "Pascal Compiler" for details on compiler control 
comments. 

Note that if the beginning of the comment is delimited by the 
"<*" symbol, the end of the comment must be delimited by the matching 
"•)" symboli rather than the ">" symbol! When the comment begins with 
the "<" symbol) the comment continues until the matching ">" symbol 
appears. This feature allows a user to "comment out" a section of a 
program which itself contains comments. j For example: 

< XCP :■ XCP + li <♦ ADJUST FOR SPECIAL CASE... ♦) > 

Note that the compiler does not keep track of nested comments. 
When a comment symbol is encountered, the text is scanned for the 
matching comment symbol. The following! text will result in a syntax 
error: 

<« THIS IS A COMMENT (» NESTED] COMMENT *) END OF FIRST COMMENT *) 

'"■error here. 



2. 2. 3 DYNAMIC MEMORY ALLOCATION 



defined on page 158 of Jensen 
Pascal. However, the function 



The standard procedure DISPOSE 
and Wirth is not implemented in U.C.S. D 
of DISPOSE can be approximated by a combined use of the U. C. S. D. 
intrinsics MARK and RELEASE. The procesjs of recovering memory space 
described below is only an approximation to the function of DISPOSE as 
one cannot explicitly ask that the storage occupied by one particular 
variable be released by the system for other uses. 

The current U. C. S. D. implementation allocates storage for 
variables created by use of the standard procedure NEW in a stack-like 
structure called the "heap". The following program is a simple 
demonstration of how MARK and RELEASE can be used to change in the size 
of the heap. 

PROGRAM SMALLHEAPi 

TYPE PERSON- 
RECORD 

NAME: PACKED ARRAYCO. j. 153 OF CHAR; 
XD: INTEGER 
END; 



Page 136 



VAR P: ^PERSON; (* m ~ m meant "pointer to" at defined In J&U *) 
HEAP: ~ INTEGER* ' 

BEGIN 

MARK (HEAP) j 

NEW(P)i 

P~. NAME:- 'FAR KLE, HENRY J. 'i 

P~ ID: - 999! 

RELEASE (HEAP), 
END. 

The above program first call* MARK to place the address of the 

current top of heap into the variable HEAP. HEAP being declared to be 
a pointer to an INTEGER is not really important/ as HEAP could have 
been declared as pointing to almost anything. The parameter supplied 
to MARK must be a pointer variable* but need not be a pointer that is 
declared to be a pointer to an INTEGER. This is a particularly handy 
construct for deliberately accessing the contents of memory which is 
otherwise inaceessable. Below is a pictorial description of the heap 
at this point in the program's execution: 



TOP OF HEAP — > 



contents of heap at 
start of program 



HEAP 



Next the program calls the standard procedure NEW and this 
results in a new variable P~ which is located in the heap as shown in 
the diagram below: 



TOP OF HEAP 



contents of heap at 
start of program 



<— 



HEAP 
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Once the program no longer needs the variable P~ and withe* to 
"release" this memory space to the system for other uses, it calls 
RELEASE which resets the top of heap to the address contained in the 
variable HEAP. 



Zf the above sample program had ma 
standard procedure NEW between the calls t 
storage occupied by several variables woulj 



de a series of calls to the 
o MARK and RELEASE, the 
d have been released at 



once. Note that due to the stack nature oif the heap it is not passible 



to release the memory space used by a sing 



le item in the middle of the 



heap. It is for this reason the use of MARK and RELEASE can only 
approximate the function of DISPOSE as described in Jensen and Mirth. 

Furthermore/ it should be noted that careless use of the 
intrinsics MARK and RELEASE can lead to "Wangling pointers", pointing 
to areas of memory which at€ no longer par^t of the defined heap space. 

2.2.4 EOF(F) 

To set EOF to TRUE for a textfile jF being used as an input file 
from the CONSOLE device, the user must typie the EOF character. The 
system default EOF character is the contrql-C character. The EOF 
character can be altered by a suitable reclonf iguration of the system 
variable SYSCOM"\ CRTINFO. EOF using SETUP. For further information 
concerning system configuration and the SEjTUP program see Section 4.3. 

If F is closed* for any FILE F, EOF(F) will return the value 
TRUE. If EOF(F) is TRUE . and F is a FILE of type TEXT. EOLN(F) is 
also TRUE. After a RESET(F), EOF(F> is FAIJSE. If EOF(F) becomes TRUE 
during a GET(F) or a READCF, . . . ) the data obtained thereby is not 
valid. 

When a user program starts execution, the system performs a 
RESET on the predeclared files INPUT. OUTPUT, and KEYBOARD. See 
section 2.2.11 READ for further details concerning the predeclared file 
KEYBOARD. 

As defined in Jensen and Wirth. EOF and EOLN by default will 
refer to the file INPUT if no file identifier is specified. 

2.2.9 EOLN(F) 

EOLN(F) is defined only if F is a textfile. F is a textfile if 
the <type> of the window variable, F A i is of type CHAR. EOLN becomes 
TRUE only after reading the end of line character. The end of line 
character is a carriage return. In the example program below, care 
must be taken as regards when the carriage return is typed while 
inputing data: 
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PROGRAM ADDLINESi 
VAR K, SUM: INTEGER* 

BEGIN 

WHILE NOT EDF< INPUT) DO 
BEGIN 
SUM: «Oj 

READ ( INPUT, K)i 
WHILE NOT EOLN( INPUT) DO 
BEGIN 

SUM: *SUM+Ki 
READ (INPUT, K)j 
END; 
WRITELN( OUTPUT); 

WRITELNC OUTPUT, 'THE SUM FOR THIS LINE IS '. SUM)i 
END) 
END. 

In order for EOLN(F) to be TRUE in the above program, the 
carriage return must be typed immediately after the last digit of the 
last integer on that line. If instead a space is typed followed by the 
carriage return, EOLN will remain FALSE and another READ will take 
place. 

2.2.6 FILES 

Changes were made in order to bring U. C. S. D. Pascal closer to 
the standard definition of the language. 

A. INTERACTIVE FILES 

Files of <type> INTERACTIVE behave exactly as files of <type> 
TEXT. The standard predeclared files INPUT and OUTPUT will always be 
defined to be of <type> INTERACTIVE. All files of any <type> other 
than INTERACTIVE, are defined to operate exactly as described in Jensen 
and Wirth. For filets which art not of <tijpe> INTERACTIVE, the 
definitions of EOF(F), EOLNCF), and RESETCF) art exactly as presented 
in Jensen and Wirth. For more details concerning files of <type> 
INTERACTIVE see section 2.2.11 "READ AND READLN" and section 2.2.12 
"RESET" and section 2.1.2.. 

B. UNTYPED FILES 



U. C. S. D. Pascal has one type of file declaration which in not 
found in the syntax of Jensen and Wirth. This type and its use is 
demonstrated in the sample program below: 
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PROGRAM FILEDEMO; 

VAR 0. F: FILE; 

BUFFER: , PACKED ARRAYCO. . 311 3 OF CHAR; 
BLOCKNUMBER. BLOCKSTRANSFERRED:! INTEGER; 
BAD 10: BOOLEAN; 

(* This program reads a diskfile tailed 'SOURCE. DATA' and 

copies the file into another diskfile called 'DESTINATION' 
using untyped files and the intrinsics BLOCKREAD and 
BLOCKWRITE *) 

BEGIN 

BAD I 0: -FALSE; 
RESET <G» 'SOURCE. DATA'); 
REWRITE(F, 'DESTINATION' ); 
BLOCKNUMBER: -O; ■ 

BLOCKSTRANSFERRED: -BLOCKREAD (G, BUFFER. 1, BLOCKNUMBER); 
WHILE (NOT EOF(G)) AND ( IORGSULT-0) AND (NOT BADIO) AND 
<BL0CKSTRANSFERRED=1) DO 
BEGIN 

BLOCKSTRANSFERRED: «BLOCKWRIfE(F. BUFFER. 1. BLOCKNUMBER); 
BADIO: *(<BLOCKSTRANSFERRED<P OR ( I ORESULTOO > ); 
BLOCKNUMBER: -BL0CKNUM3ER+1; [ 

BLOCKSTRANSFERRED: -BLOCKREAD (G, BUFFER. 1. BLOCKNUMBER); 
END; 
CLOSE (F. LOCK); 
END. 

The two files which av declared pnd used in the above sample 
program atk both untyped files. An untyped file F can be thought of as 
a -file without a window variable F"" to which all I/O must be 
accomplished by using the functions BLOCKHEAD and BLOCKWRITE. Note 
that any number of blocks can be transferred using either BLOCKREAD or 
BLOCKWRITE. The functions return the actual number of blocks read. A 
somewhat tneaky approach to doing a quick transfer would be: 

WHILE BLOCKWRITE<F. BUFFER. BLOCKREAD(G. BUFFER. BUFBLOCKS) )>0 DO (*IT*); 

This is. however considered unclean. The program above has 
been compiled using the I-Comoile Time Option, thereby requiring that 
the function IGRE5ULT and the number of blocks transferred be checked 
after each BLOCKREAD or BLOCKWRITE in order to detect any I/O errors 
that might have occurred. 



Page 140 



C. RANDOM ACCESS OF FILES 

The U. C. S. D. implementation of structured files supports the 
ability to randomly access individual records within a file by means of 
the intrinsic SEEK. SEEK expects two parameters, the first being the 
file identifier* and the second* an integer specifying the record 
number to which the window should be moved. The first record of a 
structured file is numbered record 0. The following sample program 
demonstrates the use of SEEK to randomly access and update records in a 
file: 

PROGRAM RANDOMACCESS; 
VAR DISK: FILE OF 
RECORD 

NAME: STRINGC203; 
DAY. MONTH, YEAR: INTEGER} 
ADDRESS: PACKED ARRAYCO. . 493 OF CHARi 
ALIVE: BOOLEAN 
END; 
RECNUMBER: INTEGER! 
CH: CHAR; 

BEGIN 

RESETCDISK, 'RECORDS. DATA ') ; 
WHILE NOT EOF< INPUT) DO 
BEGIN 

WRITECOUTPUT, 'Enter record number >'); 

READ (INPUT/ RECNUMBER); 
SEEK ( D I SK, RECNUMBER > ; 
GET (DISK); 
WITH DISK~ DO 
BEGIN 

WRITELN( OUTPUT, NAME. DAY. MONTH. YEAR. ADDRESS)! 

WRITE(OUTPUT, 'Enter correct name >')i 

READLN ( INPUT. NAME ) i 



END; 

SEEK (DISK. RECNUMBER); (* Must point the window 

back to the record since 
GET(DISK) advances the 
window to the next record 
after loading DISK* #) 

PUT(DISK); 
END; 
END. 
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Attempts to PUT records beyond the physical end of file will 
set EOF to the value TRUE. (The physical end of file is the point 
where the next record in the file will overwrite another file on the 
disk. ) SEEK always sets EDF and EOLN to FALSE. The subsequent GET or 
PUT will set these conditions as is appropriate. 

D. READ AND WRITE FROM ARBITRARILY TYPED FILES 

It is not currently possible to READ or WRITE to files of type 
other than TEXT or FILE OF CHAR. 



2.2.7 GOTO AND EXIT STATEMENTS 

U. C. S. D. has a more limited form of GOTO statement than is 
defined as the standard in Jensen and Wirth. U. C. S. D. 's GOTO statement 
prohibits a GOTO statement to a label which is not within the same 
block as the GOTO statement itself. The examples presented on pages 31' 
32 of Jensen and Wirth srti not legal in U. C. S. D. Pascal. 

EXIT is a U. C. S. D. extension which accepts as its single 
parameter the identifier of a procedure to be exited. Note that the 
use of an EXIT statement to exit a FUNCTION can result in the FUNCTION 
returning undefined values if no assignment to the FUNCTION identifier 
is made prior to the execution of the EXIt statement. Below is an 
example of the use of the EXIT statement: 

PROGRAM EXITDEMQj 
VAR T: STRING! 

CN: INTEGER j 

PROCEDURE Q; FORWARD! 

PROCEDURE P! 
BEGIN 

READLN(T)i 

WRITELN(T)! 

IF TC13»'#' THEN EXIT(G>i 

WR I TELN < ' LEAVE P ' ) i 
ENDi 

PROCEDURE Q; 
BEGIN 

Pi 

WRITELN< 'LEAVE Q')i 
END! 
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PROCEDURE Ri 
BEGIN 

IF CN <- 10 THEN Q; 

WRITELN( 'LEAVE R')i 
END; 

BEGIN 
CN: «0; 

WHILE NOT EOF DO 
BEGIN 

CN:«CN+ln 
Ri 

WRITELN; 
END) 
END. 

If the above program were supplied the following input 

THIS IS THE FIRST STRING 

LAST STRING 

the following output will result: 

THIS IS THE FIRST STRING 
LEAVE IP 
LEAVE Q 
LEAVE IR 

t 
LEAVE R 

LAST STRING 
LEAVE P 
LEAVE Q 
LEAVE R 

The EXIT(G) statement causes the PROCEDURE P to be terminated 
followed by the PROCEDURE Q. Processing continues following the call 
to G inside PROCEDURE R. Thus the only line of output following "»" is 
"LEAVE R M at the end of PROCEDURE R. In the two cases where the 
EXIT<G) statement is not executed, processing proceeds normally through 
the terminations of procedures P and G. 

If the procedure identifier passed to EXIT is a recursive 
procedure* the most recent invocation of that procedure will be 
eiited. If, in the above example, one or both of the procedures P and 
G declared and opened some local files, an implicit CLOSECF) is done 
when the EXIT(G) statement is executed/ as if the procedures P and G 
terminated normally. 
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The creation of the EXIT statement at U. C. S. D. was inspired by 
the occasional need for a straightforward means to abort a complicated 
and possibly deeply nested series of procedure calls upon encountering 
an error. An example of such a use of the EXIT statement can be found 
in the recursive descent U. C. S. D. Pascal compiler. The routine use of 
the EXIT statement is* nevertheless, discouraged. 



2. 2.8 



PACKED VARIABLES 



A. PACKED ARRAYS 

The U. C. S. D. compiler will perform packing of arrays and 
records if the ARRAY or RECORD declaration is preceded by the word 
PACKED. For example, consider the following declarations: 

A: ARRAYCO. . 93 OF CHAR; 

B: PACKED ARRAYCO. . 93 OF CHARi 

The array A will occupy ten 16 bit words of memory* with each 
element of the array occupying 1 word. The PACKED ARRAY B on the other 
hand will occupy a total of only 5 words* since each 16 bit word 
contains two 8 bit characters. In this manner each element of the 
PACKED ARRAY B is 8 bits long. 

PACKED ARRAYS need not be restricted to arrays of type CHAR, 
for example: 

C: PACKED ARRAYCO. .13 OF O. . 3; 

D: PACKED ARRAYC1. . 93 OF SET OF O. . 15; 

D2: PACKED ARRAYCO. . 239* 0. .3193 OF BOOLEAN* 

Each element of the PACKED ARRAY C is only 2 bits long* since 
only 2 bits are needed to represent the values in the range 0. . 3. 
Therefore C occupies only one 16 bit word of memory* and 12 of the bits 
in that word are unused. The PACKED ARRAY D is a 9 word arrant since 
each element of D is a SET which can be represented in a minimum of 16 
bits. Each element of a PACKED ARRAY OF BOOLEAN* as in the case of D2 
in the above example* occupies only one bit. 

The following 2 declarations ar« not equivalent due to the 
recursive nature of the compiler: 

E: PACKED ARRAYCO. . 93 OF ARRAYCQ. . 33 OF CHARi 

F: PACKED ARRAYCO. . 9* 0. . 33 OF CHAR; 



Page 144 



The second occurrence of the reserved word ARRAY in the 
declaration of E causes the packing option in the compiler to be turned 
off E becomes an unpacked array of 40 words. On the otherhand* the 
PACKED ARRAY F occupies 20 total words because the reserved word ARRAY 
occurs only once in the declaration. If E h«id been declared as 

E: PACKED ARRAYCO. .93 OF PACKED ARRAYCO. . 33 OF CHARi 



or as 
E: ARRAYCO. . 93 OF PACKED ARRAYCO. . 33 



F and E would have had identical configurations. 



The reserved word PACKED only has tr 
last appearance of the reserved word ARRAY 1 
ARRAY. When in doubt a good rule of thumb wh^ 
multidimensional PACKED ARRAY is to place th 
before every appearance of the reserved word 
resultant array will be PACKED. 



The resultant array will only be pac 
the mrrstj is scalar* or subrange, or a set uh 
8 bits or less. The final type can also be 
following declaration will result in no pack 
final type of the array cannot be repre&ente 

0: PACKED ARRAYCO. .33 OF 0. . IOOOi 



OF CHAR; 



e significance before the 
a declaration of a PACKED 

en declaring a 
reserved word PACKED 

ARRAY to insure that the 



ed if the final type of 
ich can be represented in 
BOOLEAN or CHAR. The 
ng whatsoever because the 
in a field of 8 bits: 



C will be an array which occupies 4 16 bit words. 

Packing never occurs across word boundaries. This means that 
if the type of the element to be packed requires a number of bits which 
does not divide evenly into 16* there will be some unused bits at 
the high order end of each of the words which comprise the array. 

Note that a string constant may be assigned to a PACKED ARRAY 
OF CHAR but not to an unpacked ARRAY OF CHAR. Likewise* comparisons 
between an ARRAY OF CHAR and a string constant »re illegal. (These mre 
temporary implementation restrictions which will be removed in the next 
major release. > Because of their different sizes* PACKED ARRAYs cannot 
be compared to ordinary unpacked ARRAYs. For further information 
regarding PACKED ARRAYs OF CHARacters see section 2.2.16 "STRINGS-. 

A PACKED ARRAY OF CHAR may be output with a single write statement: 

PROGRAM VERYSLICK; 

VAR T: PACKED ARRAYCO. .103 OF CHAR* 

BEGIN 

T:« 'HELLO THERE'* 

WRITELN(T); 
END. 
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v.ru ■#fIci!iJ!J , ! ti0 V* !/ ACKED AR « AY 0F CHAR can be accomplished 
very efficiently by using th. U. C. S. D. intrinsic. FILLCHAR and SIZEOF: 

PROGRAM FILLFASTi 

VAR A: PACKED ARRAYCO. . 103 OF CHARj 

BEGIN 

FILLCHAR (ACOU, SIZEOF(A), ' ')i 
END. 

hl*nk« T p!/5° V !'u** m ? lt P'-oS^am fills the entire PACKED ARRAY A with 
U c 5 n T!I f ur J her documentation on FILLCHAR. SIZEOF, and tha other 
INTRINSICs" *** *' Cti0n 2 - l - 5 "CHARACTER ARRAY MANIPULATION 

B. PACKED RECORDS 



ai.iw. T t! fol i° win 9 RECORD declaration declares a RECORD with 4 
!.!fj '< T ?I ! ntir# R ECORD occupies one 16 bit word as a result of 
declaring it to be a PACKED RECORD. r»»u** or 

VAR R: PACKED RECORD 
I# J»K: O. . 31i 
B: BOOLEAN 
ENDi 

The variables I. J. K each take up 5 bits in the word The 
boolean variable B is allocated to the 16<th bit of the .a«/«ord 

,*..., In muCh th * sam * fflanner that PACKED ARRAYs can be 
multidimensional PACKED ARRAYs, PACKED RECORDS may contain fields whieh 

d.tt.l »5lJ?« W ! y in which declaration, are made will affect the 

2l2lIJ-!l«SI !i 9 a J hlev ? d - For •««**•• note that the following two 
Declarations »v not equivalent: 



VAR A: PACKED RECORD 
C: INTEGER j 
F: PACKED RECORD 
R: CHARi 
K: BOOLEAN 
ENDi 
H: PACKED ARRAYCO. 
ENDi 



VAR B: PACKED RECORD 
C: INTEGER! 
F: RECORD 

R:CHARi 
K: BOOLEAN 
ENDi 
33 OF CHAR H: PACKED ARRAYCO. . 33 OF CHAR 
ENDi 



As with th 
appear with every 
the PACKED RECORD 
of the RECORD. In 
fields packed into 
therefore occupies 
packed or unpacked! 
will always start 
means that in the 
completely fill on 



e reserved word ARRAY, the reserved word PACKED must 
occurrence of the reserved word RECORD in order for 
to retain its packed qualities throughout all fields 
the above example, only RECORD A has all of its 
one word. In B. the F field is not packed and 
two 16 bit words. It is important to note that a 
ARRAY or RECORD which is a field of a PACKED RECORD 
at the beginning of the next word boundary. This 
case of A, even though the F field does not 
e word, the H field starts at the beginning of the 
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next word boundary. 

A case variant may be used as the last field of a PACKED 
RECORD, and the amount of space allocated to it will be the size of the 
largest variant amoung the various cases. The actual nature of the 
packing is far beyond the scope of this document. 

VAR K: PACKED RECORD 
B: BOOLE AN ; 
CASE F: BOOLEAN OF 
TRUE: (Z: INTEGER); 

FALSE: <M: PACKED ARRAYCO. . 33 OF CHAR) 
END 
ENDi 

In the above example the B and F fields are stored in two bits 
of the first 16 bit word of the record. The remaining 14 bits are not 
used. The size of the case variant field is always the size of the 
largest variant, so in the above example, the case variant field will 
occupy two words. Thus the entire PACKED RECORD will occupy 3 words. 

C. USING PACKED VARIABLES AS PARAMETERS 

No element of a PACKED ARRAY or field of a PACKED RECORD may be 
passed as a variable (call-by-reference) parameter to a PROCEDURE or 
FUNCTION. Packed variables may. however, be passed as call by value 
parameters, as stated in Jensen and Mirth. 

D. PACK AND UNPACK STANDARD PROCEDURES 

U. C. S. D. Pascal does not support the standard procedures PACK 
and UNPACK as defined in Jensen and Wirth on page 106. 

2.2.9 PARAMETRIC PROCEDURES AND FUNCTIONS 

U. C. S. D. Pascal does not support the construct in which 
PROCEDURES and FUNCTIONS may be declared as formal parameters in the 
parameter list of a PROCEDURE or FUNCTION. 

See Section 6.6 for a revised syntax diagram of <parameter- 
ll«t>. 

2. 2. 10 PROGRAM HEADINGS 

Although the U. C. S. D. Pascal compiler will permit a list of 
file parameters to be present following the program identifier, these 
parameters are ignored by the compiler and will have no affect on the 
program being compiled. As a result the following two program headings 
ar9 equivalent: 
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PROGRAM DEMO (INPUT, OUTPUT) j and PROGRAM DEMOi 

h™ *h Wlt !l * lth#r of th « above program heading*, a user program will 
tmd,,t I*.!.; fi lM P r « declar » d *"d opened by the system. Th.sa ara: 
tMT«:.?V?I UT ' -nd KEYB0ARD •"* «•• d.fin.d to be of <type> 
INTERACTIVE If the program wishes to declare any additional files, 
If** *il» declarations must be declared together with the program's 
other VAR declarations. * 

2.2.11 READ AND READLN 

Given the following declarations: 

VAR CHrCHAR; 

F: TEXT; (* TYPE TEXT - FILE OF CHAR #) 

the statement REA»(F,CH) is defined by Jensen and Wirth on page 65 to 
be equivalent to the two'statement sequence: 

CH: «F~* 
GET(F>i 

In other words, the standard definition of the standard 
procedure READ requires that the process of opening a file load the 

window variable" F- with the first character of the file. In an 
interactive programming environment, i* is not convenient to require a 
Uf* r jB ;? *? Pe ln th# flrst char »cter of the input file at the time when 
the file is opened. If this were the case, every program would "hang* 
until a character was typed, whether or not the program performed any 
input operations at all. In order to overcome this problem, U. C. S D 
Pascal defines an additional file <type> called INTERACTIVE. Declaring 
*/i -r™ b * °* <*«*•> INTERACTIVE is equivalent to declaring F to be 
2irAfw£ # ,.Jf ? !?* 4if * 9T9nc * b « in 9 tha* the definition of the statement 
5 A 7 F 1 is the rever »* °* **»e sequence specified by the standard 
definition for files of <type> TEXT: i.e. 

GET<F)i 
CH: -F~* 

Thi * difference affects the way in which EOLN must be used 
within a program whenreading from a textfile of type INTERACTIVE. As 
in section 5 , EOLN becomes true only after reading the end of line 
character, a carriage return. When this is read, EOLN is set to true 
and the character returned as a result of the READ will be a blank In 
the following example , the left fragment is taken from Jensen and 
Wirth* only- the RESET and REWRITE statements have been altered. The 
program on the left will correctly copy the textfile represented by the 
file X to the file Y. The program fragment on the right performs a 
similiar task, except that the source file being copied is declared to 
be a file of <type> INTERACTIVE, thereby forcing a slight change in the 
program in order to produce the desired result. 
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PROGRAM JANDUi 
VAR X, Y: TEXTi 
CH: CHAR; 
BEGIN 

RESET (X, 'SOURCE. TEXT')* 
REWRITEtY, 'SOMETHING. TEXT'/; 
WHILE NOT EOFCX) DO 
BEGIN 

WHILE NOT EOLN(X) DO 
BEGIN 

READCX, CH); 
WRITECY, CH); 

END; 
READLNCX); 
WRITELN(Y); 
END; 
CLOSE CY, LOCK); 
END. 



PRpGRAM UCSDVERSION; 
VAR X, Y: INTERACTIVE; 

CH:CHAR; 
BEGIN 

f^ESETCX, 'CONSOLE: '); 
REWRITE(Y, 'SOMETHING. TEXT'); 
WHILE NOT EOF(X> DO 
BEGIN 

WHILE NOT EOLN(X) DO 
BEGIN 

READ(X/CH); 
IF NOT EOLN(X) THEN 
WRITE<Y, CH); 
END; 
READLNCX); 
WRITELN(Y); 
END; 
CLOSE (Y, LOCK); 
END. 



Note that the textfiles X and Y in the above two program* had 
to be opened by using the U. C. S. D. extended form of the standard 
procedures RESET and REWRITE. 
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the interactive version of the program 
ded in order for the file Y to become an 
X. Without the IF statement* an extra blank 
e end of each li^e of the file Y. This 
the end of line character according to the 
en and Wirth. Npte that the CLOSE intrinsic 
n both versions of the program in order to 

the disk directory called 
, the textfile X could have been a diskfile 
CONSOLE device in the right hand version of 



There are three predeclared te 
opened by the system for a user progra 
OUTPUT, and KEYBOARD. The file INPUT 
and is always defined to be of <type> 
READ< INPUT, CH) where CH is a character 
character typed from the CONSOLE back 
statements to the file OUTPUT will, by 
appear on the CONSOLE device. The fil 
equivalent to INPUT. For example, the 

READ (KEYBOARD, CH); 
WR I TE( OUTPUT, CH); 



xtfiles which are automatically 
m. These files ar^ INPUT, 
defaults to the CONSOLE device 
INTERACTIVE. The statement 

variable, will echo the 
to the CONSOLE device. WRITE 

default, cause the output to 
e KEYBOARD is the non-echoing 

two statements 



•T9 equivalent to the single statement READ* INPUT, CH). 
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2 2 6 -Flfea"?! JT^^^V^fl^" 9 th * U " of file * ••• actions 
*nd 2 2 a -p«?r- - 2 " 5 EQLN "< 2.2. 17 'WRITE AND WRITELN". 

SJr"i"l.™ h ; urrs" et J~ T ?iii?.;f NPUT/0UTPUT ' N ™ IC *" for 
2. 2. 12 RESETCF) 

JnH m ™* lta " da ^> procedure RESET, * as defined on page 9 of Jensen 

n«t CET(F) r or e pS T C-t *}}? "i** ? '° "•V-inning •* '«•• *«• F ?h. 
II'*.? PUT(f) will affect record number of the file In 

!22'j!I?H-c* h r*?* n !! aTd d « finitio " ** RESET(F) states that the' window 
variable F- be loaded u/ith the first record in the file. The U C S D 

fch. I!j i o™i!U d * Cl * r * d t0 bt of <f«P«> INTERACTIVE in which case 
the statement RESET(F) points the file window to the start of the %"" 

^ACTIVE ih°: d U t r% U n nd ° U ' Variabl * F ~ Th "< *«"• «X.. of <^p.> 
REBCTtpT i!' *hi ♦ C " 5* J'" ^ ulv * x «« t °' <*• standard definition of 
KESETtF) is the two statement sequence: 

RESETCF) i 
. GET(F); 

«»- a U '™lS' p ** cal defines an alternative form of the standard 
^« T d " r ^ * ESET *"»*'»» is used to open a pre-existing file. In it. 

IE!?!«/ a"?? a IH ° con5tant or variable which corresponds to the 
directory filename of the file being opened. See section 2 12 
-INPUT/OUTPUT INTRINSICS-for more infromation on this u» ff RESET. 

2. 2. 13 REWRITE (F) 

file R IuRTTp a K dar J procedur » REWRITE is used to" open and create a naw 
rue. rewrite has two parameters, the first, being the file 
identifier, the second corresponds to the directory filename of the 
file being opened, and must be either a STRING constant or variable 
For^example. the statement REWRITE<F. 'SQrtEINFO. TEXT' ) causes the file F 
to be opened for output, and. if the file is locked onto the disk, the 
filename of the file in the directory wilj. be "SOME INFO. TEXT- REWRITE 

rIItl!TnPP* J M-i y *V h * UCSD ' OPeNNEW intrinsic and will eventually 
replace OPENNtW . See section 2. 1. z "INPUT /OUTPUT INTRINSICS" for 
further documentation regarding the use o* REWRITE to open a file. 

2. 2. 14 SEGMENT PROCEDURES 

The concept of the SEGMENT PROCEDURE is a U. C. S. D. extension to 
*?t!i' th * primar y Purpose of which is to allow a programmer the 
ability to explicitly partition a ljrge program into segments, of which 
only a few need be resident in mwmory at any one time. The U C S D 
Pascal system is necessarily partitioned in this manner because it is 
too large to fit into the monory of most small interactive computers 
at one time. r 
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The fol lowing is an example of the use of SEGMENT PROCEDURES: 

PROGRAM SEGMENTDEMO; 

(» GLOBAL DECLARATIONS GO HERE •) 

PROCEDURE PRINTCT: STRING); FORWARD; 

SEGMENT PROCEDURE ONEi 
BEGIN 

PRINK 'SEGMENT NUMBER ONE'); 
END; 

SEGMENT PROCEDURE TWO* 

SEGMENT PROCEDURE THREEj 
BEGIN 
ONE; 

PR I NT ( ' SEGMENT NUMBER THREE ' ) ; 
END; 
BEGIN (* SEGMENT NUMBER TWO *> 
THREE; 

PR I NT < ' SEGMENT NUMBER TWO ' ) ; 
END; 

PROCEDURE PRINT; 
BEGIN 

WR I TELN< OUTPUT, T); 
END; 

BEGIN 

TWO; 

WRITELN('I"M DONE'); 
END. 

The above program will give the following output: 

SEGMENT NUMBER ONE 
SEGMENT NUMBER THREE 
SEGMENT NUNBER TWO 
I'M DONE 

For further documentation on SEGMENT PROCEDURES, their use and 
the syntax governing their declaration see Section 3.3 "SEGMENT PROCEDURES' 

2. 2. 15 SETS 

U. C. S. D. Pascal supports all of the constructs defined for sets 
on pages 50-51 of Jensen and Wirth. Sets (of enumeration values) mrw 
limited to positive integers only. Space is assigned* rounding up to 
word boundariesi in a bitwise fashion, starting at zerd up to 4079* 
inclusive. Therefor a set can be at most 255 words in slre# and have 
at most 40S0 elements. 
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Comparison* arid operations on sets art allowed only between 
sets which are either of the same base type or subranges of the same 
underlying type For example, in the sample program below, the base 
type of the set S is the subrange type O. . ^9, while the base type of 
the set R is the subrange type 1. . 100. The underlying type of both 
sets is the type INTEGER, which by the aboye definition of 
compatability, implies that the comparisons; and operations on the sets 
» and R in the following program arm legal: 

PROGRAM SETCOMPAREj 
VAR S: SET OF 0. . 49i 
R: SET OF 1. . 100! 

BEGIN 

S: - CO, 3. 10# 13, 20, 23, 30, 33, 40, 433i 
R: ■ CIO, 20, 30. 40, 30. 60. 70, 80. 903 1 
IF S ■ R THEN 

WRITELN< '. . . oops . . . ') 
ELSE 

WRITELN( 'sets wort')! 
S :« S + R; 
END. 



In the following example, the construct I « J 
two sets arm of two distinct underlying typ^s. 

! 

PROGRAM ILLEGALSETS) 
TYPE STUFF- ( ZERO, ONE. TWO ) j 
VAR I: BET OF STUFFi 
J: SET OF O. . 2j 



is not legal since the 



BEGIN 

I:- CZEROJi 

J:- C1,23j 

IF I - J THEN . . 
END. 



<«< error here 



2. 2. 16 



STRINGS 



U. C. S. 0. Pascal has an additional predeclared type STRING. 
Variables of type STRING are esientially PACKED ARRAYS OF CHAR that 
have a dynamic LENGTH attribute, the value of which is returned by the 
STRING intrinsic LENGTH. The default maximum LENGTH of a STRING 
variable is 80 characters but can be overridden in the declaration of t 
STRING variable by appending the desired LENGTH of the STRING variable 
within C 3 after the reserved type identifier STRING. Examples of 
declarations of STRING variables arm: 
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TITLE: STRING* <# defaults to a maximum length of BO character* •> 

NAME: STRINGC20D; (* allows the STRING to be a maximum of 20 

characters*) 



Note that a STRING variable has an absolute maximum length of 
235 characters. Assignments to string variables can be performed using 
the assignment statement/ the U. C. S. D. STRING 
of a READ statement: 



TITLE:*' THIS IS A TITLE 

or 
READLNCTXTLE); 



intrinsics, or bg means 
'; 



or 

NAME:- COPY (TITLE, 1,20) ; 

The individual characters within a STRING btb indexed from 1 to 
the LENGTH of the STRING, for example: ! 

TITLEC13:** 'A'; 

TITLEC LENGTH(TITLE) 3:* 'Z'; 



A var 
dynamic LENGTH 
run time error 



iable of type STRING may not be indexed beyond its current 
H. The following sequence will if e *ult *" * n invalid index 



TITLE:- '1234'; 
TITLEC53:- '5'; 

A variable of type STRING may be compared to any other variabli 
of type STRING or a string constant no matter what its current dynamic 
LENGTH. Unlike comparisons involving variables of other types, STRING 
variables may be compared to items of a different LENGTH. The 
resulting comparison 1 is lexicographical. The j following program is a 

demonstration of legal comparisons involving Variables of type STRING: 

i 

PROGRAM COMPARESTRINGS; 
VAR S: STRING; 

T: STRINCC403; 

BEGIN 

S:« 'SOMETHING'; 

T:« 'SOMETHING BIGGER'; 

IF S « T THEN 

WRITEILN< 'Strings do not wd>rk very well') 
ELSE 

IF S > T THEN 

WRITELNCS, ' is greater *han '.T> 
ELSE 



Page 153 



IF S < T THEN 

WRITELN(S. ' is lest than ',T>j 
IF S - 'SOMETHING' THEN 

WRITELN<S, ' equals ',S) 
IF S > 'SAMETHING' THEN 

WRITELN(S, ' is greater th 
IF S ■ 'SOMETHING 

WRITELN< 'BLANKS DON"T COUNT 
ELSE 

WRITELM 'BLANKS APPEAR TO 
S:«'XXX'! 
T:«'ABCDEF'i 
IF S > T THEN 

WRITELN<S. ' is greater th 
ELSE 

WRITELN<S» ' is less than 
END. 



■n SAMETHING')! 
' THEN 
) 

MAKE A DIFFERENCE')! 



*n ST) 

T)! 



The above program should produce the following output: 

SOMETHING is less than SOMETHING BIGGER 
SOMETHING equals SOMETHING 
SOMETHING is greater than SAMETHING 
BLANKS APPEAR TO MAKE A DIFFERENCE 
XXX is greater than ABCDEF 



One of the most common uses of STRING 



Pascal system is reading file names from the CONSOLE device: 



PROGRAM LISTER! 

VAR BUFFER: PACKED ARRAYCO. . 5^13 OF CHARi 

FILENAME: STRING? 

F: FILE! 



variables in the U. C. S. D. 



BEGIN 

WRITE( 'Enter filename of th* file to be listed >')i 

READLN( FILENAME); 
RESET < Ft FILENAME); 
WHILE NOT EOF(F) DO 
BEGIN 



END! 
END. 

When a variable of type STRING is a parameter to the standard 
procedure READ and READLN* all characters up to the end of line 
character (a carriage return) in the source file will be assigned to 
the STRING variable. Note that care must be ^aken when reading STRING 
variables, for example, the single statement READLNCS1. S2) is 
equivalent to the two statement sequence READ^Sl)! READLN(S2). In both 
cases the STRING variable S2 will be assigned ithe empty string. 
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For further information concerning the predeclared type STRING 
tee Section 2. 1. 1 "STRING INTRINSICS". 

2.2.17 WRITE AND WRITELN 

The standard procedures WRITE and WRITELN are compatible with 
Standard Pascal* except with respect to a WRITE or a WRITELN of a 
variable of type BOOLEAN. U. C. S. D. Pascal doe 
of the words TRUE or FALSE when writing out th 
variable. 



s not support the output 
e value of a BOOLEAN 



For a description of WRITE statements 
STRING see Section 2. 1. 1 "STRING INTRINSICS". 

U. C. S. D. 's WRITE and WRITELN do suppor 
PACKED ARRAYS OF CHAR in a single WRITE statement: 



of variables of type 



t the writing of entire 



VAR BUFFER: PACKED ARRAYEO. . 10D OF CHAR; 
BEGIN 

BUFFER: = 'HELLO THERE'; (* contains 

WRITELN (OUTPUT* BUFFER); 
END. 



exactly 11 characters *) 



The above construct will work only ifjthe ARRAY is a PACKED 
ARRAY OF CHAR. See section 2. 2. B PACKED VARIABLES for further 
information. 

The following program demonstrates the effects of a field width 
specification within a WRITE statement for a >|ariable of type STRING 

PROGRAM WRITESTRINGSi 
VAR S: STRING; 

BEGIN 

S:='THE BIG BROWN FOX JUnPEp 

WRITELN(S)i 

WRITELN<S:30>; 

WRITELN(S. 10); 
END. 

The above program will produce the following output 

THE BIG BROWN FOX JUMPED. . . 

THE BIG BROWN FOX JUMPED. 
THE BIG BR 

Note that when a string variable is written without specifying 
a field width, the actual number of character^ written is equal to the 
dynamic length of the string. If the field width specified is longer 
than the dynamic length of the string, leading blanks are inserted and 
written. If the field width is smaller than the dynamic length of the 
string, the excess characters will be truncated on the right. 
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18 



IMPLEMENTATION SIZE LIMITS 



The following is a list of maximum size limitations imposed 
upon' the user by the current implementation of U. C. S. 0. Pascal: 

1. Maximum number of bytes of object code in a PROCEDURE or 
FUNCTION is 1200. Local variables in a PROCEDURE or FUNCTION 
can occupy a .T.aximu.-?. of i^ZZi'.i words of memory. 

2. Maximum number of characters :Ln a STRING variable is 299. 



3. Maximum number of elements in 



4. Maximum number of SEGMENT PROCEDURES and SEGMENT FUNCTIONS 
is 16. ( 9 are reserved for the Pascal system* 7 *v 
available for use by the user program ) 

9. Maximum number of PROCEDURES br FUNCTIONS within a segment 
is 127. 



a SET is 255.* 16*4060. 



2. 2. 19 



EXTENDED COMPARISONS. 



U. C. S. D. Pascal allows * and O comparisons of any mtt*ii or 
record structure. 



2. 2. 20 



LONG INTEGERS. 



UCSD Pascal allows integers of u|> to 35 digits. See section 
3.3.3 for details regarding lor.g integer 1. 



2. 2. 21 



UNITS. 



UCSD Pascal now supports the modularity concept of UNITs. See 
section 3.3.2 for details regarding UNITs. 

2.2.22 SUMMARY OF U. C. S. D. INTRINSICS 



INTRINSIC 



SECTION # 



DESCRIPTION 



BLOCKREAD 2.1.2 Function which rtads a variable number of blocks 

from ^n untyped file. 

BLOCKWRITE 2.1.2 Function which wfites a variable number of blocks 

from an untyped file. 
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CLOSE 

CONCAT 

DELETE 

DRAWL I NE 
DRAWBLDCK 
EXIT 
COTOXY 

FILLCHAR 
HALT 

IDSEARCH 

INSERT 

IORESULT 

LENGTH 

MARK 

MOVELEFT 

MOVERIGHT 

REWRITE 

RESET 

POS 

PWR OFTEN 



2. 1.2 
2. 1. 1 
2. 1. 1 

2. 1.4 
2. 1. 4 
2. 1. 7 
2. 1. 6 

2. 1. 5 
2. 1. 6 



2. 1. 1 

2. 1.2 

2. 1. 1 

2. 1. 3 

2. 1. 5 
2. 1. 5 
2. 1. 2 
2. 1. 2 
2. 1. 1 

2. 1. 6 



Procedure to close files, 

STRING intrinsic use* to concatenate strings together. 

STRING intrinsic used to delete characters from 
STRING variables. 

Graphics intrinsic fur use on the Terak 8310a. 

Graphics intrinsic for use on the Terak 6510a. 

Intrinsic used to ex\t PROCEDURES cleanly, 

Procedure used for cursor addressing whose two 
parameters X and Y arm the column and line numbers 
on the screen where the cursor is to be placed. 

Fast procedure for initializing PACKED ARRAYs OF CHAR. 



Halts a user program 



which may result in a call to 



the interactive Debugger. 

Routine used by the Pascal compiler, and the PDP-11 
assemb ler. 

STRING intrinsic used 1 to insert characters in STRING 
variables. 

Function returning the result of the previous I/O 
operation. (See Table 2 for a list of values) 

STRING intrinsic whidh returns the dynamic length 
of a STRING variable. 

Used to mark the currjent top of the heap in dynamic 
memory allocation. 

Low level intrinsic for moving mass amounts of bytes. 

Low level intrinsic for moving mass amounts of bytes. 

Procedure for opening a new file. 

Procedure for opening an existing file. 

STRING intrinsic returning the position of a 
pattern in a STRING variable. 

Function which returns as a REAL result the number 
10 raised to the power of the integer parameter 
supplied. 
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RELEASE 



2. 1.3 



SEEK 


2. 1.2 


SIZEOF 


2. 1.6 


STR 


2. 1. 1 


TIME 


2. 1.6 



TREESEARCH 








UNITBUSY 


2. 


1 


2 


UNXTCLEAR 


2. 


1. 


2 


UN I TREAD 


2. 


1. 


2 


UNI TWA IT 


2. 


1. 


2 


UNITWRITE 


2. 


X. 


2 



Intrinsic uscfd to rteist memory occupied by 
variables dynamically allocated in the heap. 

Used for random accensing of records withing a file. 

Function returning th,e number of bytes allocated 
to a variable. 



Procedure to convert 



Low level intrinsic f 
device. 

Low level intrinsic 
device has completed 

Low level intrinsic 
device. 



long integer into string. 



Function returning tt e time since last bootstrap 
of system, (returns ^ero if microcomputer has 
no real time clock) 

Routine used solely by the Pascal compiler. 

Low level intrinsic f|or determining the status of 
a peripheral device. 

Low level intrinsic to cancel I/O from a peripheral 
device. 



or, reading from a peripheral 



for waiting until a peripheral 
an I/O operation. 

used for writing to a peripheral 
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* DRAWLINE AN IMPLEMENTOR 'S GUIDEJ* * Section 3. 1 * 

* >*»**«****»#***»*******»****4«-***!# *************** 

Version I. 5 September 197B 



The DRAWLINE intrinsic uses an increi 
line segments on a point-addressable matrix. 
best (least squares) approximation to the de 
approximation as not unique. DRAWLINE mag pi> 
representations for a line depending on the 
be corrected by always starting at the same i 
checking is performed on parameters passed ti 



ental technique to plot 
The algorithm guarantees a 
ired line. In general this 
k different 

tarting point. (This could 
nd of the line. ) No range 
this intrinsic. 



described in Newman and 



The algorithm is essentially the one 
Sproul. Principles of Interactive Computer Graphics as the Digital 
Di f* erentlal Analyzer. It has been modified t?o perform only integer 
arithmetic. Pascal source code is included be|low. The procedure first 
determined whether the line will be mere horizontal or vertical. In the 
discussion below, we assume the horizontal case; vertical is similar. 

There will be DELTAX points plotted tifith horizontal increment 
of 1 each. The vertical increment will be ABS (DELTAY / DELTAX) <« 1. 
The Y coordinate arithmetic is scaled by DELTAX to eliminate fractions. 
An additional savings in execution time has bjeen gained by maintaining 
the address of the previous point, and doing ionly addition and 
subtraction to reach the next point to be plcjtted. 

The RADAR function is complicated as two intersecting lines may 
have no plotted points in common. The detection condition is either (1) 
the computed point is TRUE, or (2) both the n,ext horizontal and the 
next vertical points arm TRUE. Condition (2) could be weakened: when 
the line is more horizontal, only the next vertical point need be 
checked. 

Refer to Section 2.1.4 for a description of the parameter calling sequence. 
A PASCAL implementation follows: 
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PROCEDURE DRAWLINE (VAR RANGE: INTEGER* JMR SCREEN: SCREENTYPE; 
ROWWIDTH, XSTART, YSTART, DELTAX. DELTAYJ INK: INTEGER)! 

VAR X. Y, XINC, YINC. COUNT: INTEGER; 



PROCEDURE DRAWDOTj 

PROCEDURE RADAR; 
VAR GOTIT: BOOLEAN; 
BEGIN 

GOTIT :» FALSE; 
COUNT :» COUNT + 1; 

IF SCREEN CY, X3 THEN GOTIT :- TRUE ^*LANDED ON THE POINT*) 
ELSE (*WE MIGHT GO THROUGH A LINE*) 
IF SCREEN CY+1, X3 THEN 

GOTIT :« SCREEN CY. X+U; 
IF GOTIT THEN 
BEGIN 

RANGE :« COUNT; 
EX IT (DRAWLINE) 
END) 
END (*RADAR«); 

BEGIN (*DRAWDQT*) 
CASE INK OF 

(*NONE*): EXIT (DRAWLINE); (*THEY HAD NO BUSINESS HERE*) 

1 (*WHITE*): SCREEN CY/ X3 :■ TRUE; 

2 <*BLACK*>: SCREEN CY, X3 :- FAIJSE; 

3 (*REVERSE*): SCREEN CY, X3 :- NOT SCREEN CY, Xlt 

4 (*RADAR»): RADAR 
END (*CASE*) 

END (*DRAWDOT*); 

PROCEDURE DOFORX; (*MORE HORIZONTAL*) 

VAR ERROR, I: INTEGER; 

BEGIN 

IF DELTAX - THEM EXIT (DRAWLINE); (*THEY'RE GOING NOWHERE*) 
ERROR := DELTAX DIV 2; 
I :« DELTAX; 
REPEAT 

ERROR :- ERROR + DELTAY; 
IF ERROR >« DELTAX 

THEN BEGIN ERROR :- ERROR - DELTAX; Y :» Y + YINC END; 
X :- X f XINC; 
DRAWDOT; 
I :- I - 1; 
UNTIL I ■ 0; 
END (#DOFORX*)i 
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PROCEDURE DOFORY; <*MORE VERTICAL*) 

VAR ERROR, I: INTEGER. 

BEGIN 

ERROR :- DELTAY DIV 2; 

I :« DELTAYi 

REPEAT 

ERROR : « ERROR + DELTAX; 
IF ERROR >» DELTAY 

THEN BEGIN ERROR : « ERROR - DELTAYi 
Y :» Y + YINCi 
DRAWDOT; 
I :« I - l* 
UNTIL I - O; 
END <*DOFORY*); 



XINC 



END; 



-DELTAX END 



BEGIN (*DRAWLINE*> 
X :« XSTARTi 
IF DELTAX < 

THEN BEGIN XINC := -1; DELTAX 

ELSE XINC :■ li ■ 
Y :« YSTART; 
IF DELTAY < 

THEN BEGIN Y1NC :« -li DELTAY :■ -DELTAY END 

ELSE YINC :« 1» 
COUNT :■ 0; 

IF DELTAX >= DELTAY THEN DOFORX ELSE DOFORY; 

IF INK * 4 (*RADAR*> THEN RANGE : • COUNT; <*HIT THE LIMIT GIVEN*) 
END (*DRAWLINE«); 
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* FILE FORMATS # # Section 3. 2 * 

Version' I. 5 September 1978 
Text files are of the format: 

<1024 bytes> header page, information for editors. This space 
is reserved for use by the text editors, and is respected by all 
portions of the system. When a userprogram opens a TEXT file* and 
REWRITES or RESETs it with a title ending in '.TEXT', the I/O 
subsystem will create and skip over the initial page. This is done to 
facilitate uses editing their input and/or output data. The file- 
handler will transfer the header page only on a disk-disk transfer* and 
will omit it on a transfer to a serial device. (i.e. transfers to 
PRINTER:, and CONSOLE: will omit the header page) 

C1024 byte pages> where a page i6 defined:' 

<CDLE3C:Lndent3:text3CCRDCDLEKindent3Ctext3CCR3. . . Cnulls3> 

Data Link Escapes are followed by an indent-codd which is a 
byte containing the value 32+<K to indent). The nulls at the end of 
the page follow a CCRD ;Ln all cases, they are a pad to the end of a 
page. The reason for the nulls is that the compiler wants integral 
numbers of lines on a page. The Data Link Escape and corresponding 
indentation code are optional. In a given text file some lines will 
have the codes, and some won't. 

Foto files arm declared in PASCAL as follows: 

TYPE SCREEN * PACKED ARRAYCO. . 239, 0. . 3193 OF BOOLEAN, 
VAR FOTOFILE: PACKED FILE OF SCREEN; 

or something similar, which takes up the same dimensional 



space. 



Data files are up to the user. 



Code files frave one block of information which describes the 
code kept in the file. First is an array of! 16 word pairs, the first 
word in the pair describes the block which starts the code of the 
segment which is numbered as the position in! the array. The second 
word is the number of bytes in that segment. For example if the third 
word in the first block of a code file is an B, and the fourth work is 
1084, you now know that segment 1 of this code file starts on block 8 
of the file, and has 1084 bytes of code. 

Following this array is an array of arrays of characters. The 
array is an array of 8 character arrays which describe the segments by 
name. These 8 characters are those which identify the segment at 
compile time. HeVe again, the position in this arra^j corresponds to 
the segment number. 
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Following the array of name^ is an arra\i, again 16 word* long, 
of state descriptors. The values in this arra^ indicate what kind of 
segment is at the described location. The values for this array, at 
present, mtq: LINKED, H0ST5EG. SEGPROfc. UNITSEG. SEPRTSEG 



The remainder of the block, 
use by later versions of the system, 



144 words, is reserved for toturv 
The format of the first block 



will most probably change completely for version II. 0. 
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» SEGMENT PROCEDURE NOTES * * 



Version I. 5 Septemb 
Declarations of SEGMENT procedures 
to standard Pascal procedures and functions 
the reserved word 'SEGMENTS for example: 

SEGMENT PROCEDURE INITIALIZE* 
BEGIN 

(# PASCAL code *> 
END; 



#*♦*####♦***#*# 
Section 3. 3. 1 * 
•ft************** 



er 1978 

and functions are identical 
except they mve preceded by 



Program behavior differs* however* as code and data for a 
SEGMENT procedure (function) *ve in memory jonly while there is an 
active invocation of that procedure. 

Advantages and benefits: 

The user may now put large pieces o'f one-time code* eg. 
initialization code, into a SEGMENT procedure. After performing the 



s code is taken out of 
space. 

e his/her program in chunks* 
am (described in Section 
ate segments to produce one 



initialization* for example/ the now-useles 
memory thus increasing the available memory 

Furthermore the user may now compil 
specifically in SEGMENTS. The LINKER progr 
1.8) can be used to link together the separ 
large code file. 

Requirements and limitations: 

The disk which holds the codefile for the program must be on- 
line (and in the same drive as when the program was started) whenever 
one of SEGMENT procedures is to be called. Otherwise the system will 
attempt to retrieve and execute whatever information now occupies that 
particular location on the disk* usually with very displeasing and 
certainly unexpected results. 

A maximum of six (6) SEGMENT procedures are ordinarily 
available to the user. 

SEGMENT procedures must be the firslt procedure declarations 
containing code-generating statements. 

For further details and examples seie Section 3.5* INTRODUCTION 
TO THE PASCAL PSEUDO MACHINE. 



Page 165 



* LINKAGE TO EXTERNALLY COMPILED * * Section 3.3.2 * 

* AND ASSEMBLED ROUTINES j * • * 

************* »*#*^*****« »***;***«• ***************** 

Version I. 5 September 1978 
EXTERNAL COMPILATION UNITS 



The UCSD P 
externally compile 
separately compile 
frequently used ro 
it to a libraryi u 
that structure nee 
rather* the linker 
Separate compilati 
portions of progra 
routines and Pasca 
routines. Each of 
sections. 



ascal 1.5 system supports! a facility for integrating 
d and assembled routines {and data structures. Use of 
d structures allows the ujser to create files of 
utines. After a structure is compiled* the user adds 
sing the library maintainor. Files that reference 
d not compile it directly! into their code file. 

copies the existing code! into the host code file. 
on or assembly is supported in these areas: between 
ms written in Pascal; between assembly language 
1 hosts) and finally* between assembly language 

these areas is discussed! in turn by the following 



3. 3. 2. 1 PASCAL TO PASCAL LINKAGES — UNITS 



A UNIT is a group 
Associated data structures 
this task is needed within 
USES the UNIT. A UNIT con 
declares constants, types 
public and can be used by 
part* which declares const 
functions that are private 
and ere used by the UNIT, 
will communicate with the 
how the UNIT will accompli 



of interdependent 
which perform a 
a program* the p 

sists of two part 
variables* proce 

the host program 



.procedures* functions* and 
specialized task. Whenever 
rogram indicates that it 
s* the INTERFACE part* which 
dures and functions that mrm 
and the IMPLEMENTATION 



ants* types* variables* procedures and 

These are not available to the host program 
The INTERFACE parit declares how the program 
UNIT while the IMPLEMENTATION part defines 
sh its task. 



TURTLEGRAPHICS ( example 6 ) is a UNIT which enables the user 
to draw pictures using a graphics turtle. The INTERFACE consists of 
procedures like MOVE. TURN, and PENCOLOR. w!hich allow the user to move 
the turtle and change colors. TURTLEGRAPHICS also employs DRAWLINE. an 
externally assembled procedure* to draw the lines and the turtle. 

A program that uses TURTLEGRAPHICS (has no need for DRAWLINE* 
and* consequently. DRAWLINE is private to that UNIT. 
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PROGRAM DRAWPOLYGON) 
USES TURTLEGRAPHICSi 
VAR I: INTEGER. 

SIZE, NUMS IDES: INTEGER; 



BEGIN 

INITTURTLEi (« 

URITECWhat size polygon?')! 
READLN(SIZE)) 
WRITE< 'How many sides?')) 
READLN( NUMS IDES)* 
FOR I:«l TO NUMS IDES DO 
BEGIN 

MOVE(SIZE)) 

TURN (360 DIV NUMS IDES)) 
END) 
END. 



Initialize the UNIT'S variables •) 



EXAMPLE A 

A program must indicate the UNITs that it USES before the LABEL 
declaration part of the program. At the occurrence of a USES 
statement, the compiler references the INTERFACE part of the UNIT as 
though it were part of the host text itself. Therefore all public 
constants, types, variables, functions, arid procedures *v global. Name 
conflicts may arise. if the user defines mri identifier that has alreedy 
been defined by the UNIT. Procedures and function* may not USE UNITs 
locally. 



UNIT TURTLEGRAPHICS) 
INTERFACE 
TYPE 

TOCOLOR* < NONE, 



WHITE, BLACK, REVERSE )) 



PROCEDURE INITTURTLE) 
PROCEDURE TURN( RELANGLE: Integer )) 
PROCEDURE MOVE( RELDISTANCE: Integer )) 
PROCEDURE MOVETO< X, Y: Integer )i 
PROCEDURE TURNTOC ANGLE: Integer )i 
PROCEDURE PENCOLOR< PCOLOR: TGCOLOR )) 

IMPLEMENTATION 

CONST 



TERXSIZE 
TERYSIZE 
RADCONST 



319) 
239) 
57. 29578) 
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TYPE 

SCREEN ■ Packed j 

Array CO. . TERXSIZE, 0. . TERY$IZE3 of Boolean* 

VAR 

<* Private variables ») 
TCXPOS: Integer* 
TGYPOS: Integer; 
TCHEADING: Integer* 
TCPEN: TGCOLQR; 

I» J: Integer* 
S: SCREEN; 

(* Externally assembled procedure *) 

PROCEDURE DRAWLINE< Var RADAR; Integer* yar S: SCREEN* 

ROW, XO, YO, DX, DY, PEN: Integer )* 

EXTERNAL* <* External declaration •) 

PROCEDURE INITTURTLE* 
BEGIN 

Fiilchar( SCREEN. Sizeof (SCREEN) , O )i 

Unitu»rite< 3, SCREEN. 63 )* 

HEADING :■ O* 

TGXPOS :■ O* 

TGYPOS :« 0* 
END* 

PROCEDURE MOVE* (* Public procedure, parameters declared above *) 

BEGIN : 

MOVETQ( Round (TURTLEX •»• DIST*Cos<TURTI_feANGLE/RADCONST>. 

Round (TURTLEY + DIST*Sin<TURTL,EANGLE/RADCONST> )* 
END* 

PROCEDURE MOVETO* 

VAR R: Integer* 
BEGIN 

DRAWLINEC R, S, 20, 160+TURTLEX. 120-"|1URTLEY, 

X-TURTLEX, TURTLEY-Y, ORD(TMRTLEPEN) )* 
END* 

PROCEDURE TURN* <♦ Public procedure, parameters declared above •) 
BEGIN 

HEADING :« < HEADING+RELANGLE > mod 360* 

END* 
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PROCEDURE TURNTO; 
BEGIN 

HEADING :- ANGLE* 
END) 

PROCEDURE PENCOLOR; 
BEGIN 

TGPEN :« PCOLOR; 
END; 

END. (# End of unit #> 



EXAMPLE B 

Exampl 
the procedures 
declared in th 
program. Since 
is private* an 
definition is 
INTERFACE part 
corresponding 
parameter spec 



e B is a skeleton for a 

MOVE, TURN, and INITTURTLE, 
e INTERFACE part and arv ava 
the procedure DRAWLINE is n 
d may not be used by the hos 
shown below. The declaratio 
are similar to forward decl 
bodies are defined in the 
ifications are not repeated 



A UNIT may also USE 
declaration must appear at 
example C, PICTUREGRAPHICS 
USES TURTLEGRAPHICS. Note 
PICTUREGRAPHICS, indicates 
PICTUREGRAPHICS. It is imp 
TURTLEGRAPHICS be defined b 
it, therefore this ordering 

NOTE: Variables of 
part of a UNIT. A FILE dec 
a syntax error upon compile 



TURTLEGRAPHICS UNIT. Note that 
and the TYPE TGCOLOR, mv 
Liable for use by the host 
t part of the INTERFACE, it 

The syntax for a UNIT 
s of routine headings in the 
rations; therefore, when the 
IMPLEMENTATION part, formal 



another UNIT, In which case the USES 
the beginning of the INTERFACE part. In 
indicates in the INTERFACE part that it 
that the program USEGRAPHICS, which USES 
that it USES TURTLEGRAPHICS before using 
ortant that the INTERFACE part of 
efore PICTUREGRAPHICS makes references to 

is required. ! 

type FILE must be declared in the INTERFACE 
lared in the IMPLEMENTATION part will cause 
tion. 



UNIT PICTUREGRAPHICS; 
INTERFACE 

USES TURTLEGRAPHICS; 
TYPE 

PVECTOR ^VECTOR; 
VECTOR -RECORD 

DELHEADING: INTEGER; 
DELD I STANCE: INTEGER; 
PENDOWN: BOOLEAN; 
NEXTVEC.P VECTOR 
END; (* record *) 



<* TURTLEGRAPHICS is defined in the •) 
(* *system. 1 ibrary see section III below •) 
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VAR 

START: P VECTOR. <* Head of lift of 1 tines ♦> 
HEAP: * INTEGER; 

PROCEDURE MAKESUB PICTURE; 

PROCEDURE DRAWSUBPICTURE; 

IMPLEMENTATION 

PROCEDURE MAKESUBPICTURE; 
BEGIN 

(* Calculates next subpicture and store!* on heap #) 
END; ! 



PROCEDURE DRAWSUBPICTURE; 
BEGIN 

LPVEC:*START; <* Start at beg inn 

WHILE LPVECONIL DO (* and draw each t 

WITH LPVEC~ DO 

BEGIN 

TUR N < DELHE AD I NG ) } 

MOVE C DELD I STANCE ) ; 

IF PENDOWN THEN TGPEN: -WHITE 

ELSE TGPEN : =NONE; 
LPVEC:«=NEXTVEC; 
END; 
END; <* draursubpicture *) 



ing of list *) 
hat's there *> 



t:,ND* 



PROGRAM USEGRAPHICS; 

USES TURTLEGRAPHICS, PICTURECRAPHICS; 

BEGIN 

INITTURTLE; 
REPEAT 

MARK (HEAP); 
MAKESUBPICTURE; 
DRAWSUBPICTURE; 
RELEASE (HEAP); 
UNTIL START-NIL; 
(END. 



(♦ picturegraphics uses •> 
<* turtlegraphics *) 



EXAMPLE C 
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< Compilation unit > 



< Unit definition > 



< Unit heading > 

< Unit identifier > 

< Interface pert > 



< Implementation part> 



< Uses part > 



< Program heading > i < Unit definition > i 

< Uses part > < Block > J 

< Unit definition > i < Unit definition > . 

< unit heading >j 

< Interface part > 

< Implementation part > 
End 

Unit < Unit identifier > 1 
Separate unit < Unit identifier > 

< Identifier > 

Interface 

< Usee part > 

< Constant definition part > 

< Type definition part > 

< Variable declaration part > 

< Procedure heading > I C Function heading > 

Implementation 

< Label declaration part > 

< Constant definition part > 

< Type definition part > 

< Variable declaration part > 

< Procedure and Function declaration part > 

Uses < Unit identifier > 
. < Unit identified t I < Empty > 



DIAGRAM 

The user may define 
host program. In this case 
host program together. Any 
program require the user to 
and compile a UNIT ( or a g 
library manager to store it 
a host program that uses su 
the code file by executing 
file will cause the LINKER 
unlinked file causes the sy 
Changes in a host program r 
program and link in the UNI 
UNIT only require the user 
compilation units that use 
a UNIT require that the use 
compilation units that use 
compilation units must agai 
section 1.8 LINKER or secti 



a UNIT in-li 
the user comp 

subsequent c 

recompile bo 
roup of UNITs 

( or them ) 
ch a UNIT* th 
the LINKER, 
to run automa 
stem to remin 
equire only t 
T. Changes i 
to compile th 
that UNIT. Ch 
r recompile b 
that UNIT. I 
n be linked, 
on 4. 2 LIBRAR 



ne« after the heading of the 
iles both the UNIT, and the 
hanges in the UNIT or host 
th. The user may also define 

) separately, and use the 
in a library. After compiling 
e user must link that UNIT into 
Trying to R(un an unlinked code 
tically, trying to XCecute an 
d you to link the file . 
hat the user recompile the 
n the IMPLEMENTATION part of a 
e UNIT, and then to relink all 
anges in the INTERFACE part of 
oth the UNIT and all 
n this case all these 

For more information see 
IAN. 
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The compiler generates LINKER information in the contiguous 
blocks that follow a program that uses UNIT*. This information 
contains locations of references to externally defined identifiers. 
The LINKER document explains the format of this information. 

3.3.3.2 PASCAL TO ASSEMBLY LANGUAGE LINKAGES | — EXTERNAL PROCEDURES 

External procedures mre primarily separately assembled assembly 
language procedures! stored in a LIBRARY on disk. Host programs that 
require external procedures must have them linked into the compiled 
code file. Typically the user writes externa; procedures in assembly 
language* to handle low-level operations thai Pascal is not designed to 
provide. External assembly language procedures are also used for their 
comparative speed in "real time' applications. 



A host pro 
the same way as a 
provided* followed 
procedure use stan 
calls to the exter 
external declarati 
the assembly langu 
declaration. The 
parameters agree b 
For more informati 



gram declares that a procedure is external in much 
procedure is declared FORWARD. A standard heading is 

by the keyword EXTERNAL. Calls to the external 
dard Pascal syntaxi and the compiler checks that 
nal agree in type and number of parameters with the 
on. It it the user's responsibility to assure that 
age procedure respects the Pascal external 
linker checks only that the number of words of 
etween the Pascal and assembly language declarations, 
on see section 1.8 Linker and 1.9 Assembler(s). 



The conventions of the surrounding sytem concerning register 
use and calling sequences must be restricted by writers of assembly 
language routines. These conventions for the PDP-11 and Z80/8080 
implementations arm given here. 

First, for the PDP-11, registers RO and Rl mvm available for 
use; any others affected by a routine must be saved on entry and 
restored on exit. The following call and return sequence is 
recommended for procedures. It has the advantage that calls can be 
made directly from assembly language as well as from Pascal. 

. PROC ENTRY* 2 



PAR AMI 


. EQU 


6 


PARAM2 


. EGU 


A 


RETADDR 


. EGU 


2 


OLDRS 


. EQU 





LOCAL 1 


. EQU 


-2 


L0CAL2 


.EQU 


-4 




MOV 


R5. -<SP> 




MOV 


SP.R5 




CLR 


-<SP) 




CLR 


-(SP> 



* Offset for first parameter 

j Offset for second paramter 

» Offset for return address 

i Offset for original value of R5 

i Offset for first local 

i Offset for second local 

? Save contents of R5 

i Use R5 to get at locals and parameters 

(Reserve and Initialize 

i Two local variables 



j Inside routine 

MOV PARAM(R5).LOCALKR5) 



i Sample statement 
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EXIT: 



MOV 


R5» SP 


MOV 


(SP)+.R5 


MOV 


(SP)+. RO 


ADD 


#NP ARAMS. SP 


JMP 


«RO 



i Cut back to entry SP 
i Restore previous R9 
» Get return address 
{Discard parameters 
i Return to! caller 



In Z80 assembly language routines* all registers *rm available 

for use. and the recommended interface sequence follows: (This code 

would work for both BQ80's and ZSO's. Optimizations *T9 possible if 
the Z80 instructions av available. ) 



.PROC ENTRY. 2 

. PRIVATE RETADDR, LOCAL!. L0CAL2. PARAM1, PARAM2 

i Reserve static storage for this routine. Much easier to 

i reference objects like this rather than relative to 

iregister as on PDP-11 



POP HL 

LD (RETADDR). HL 

POP HL 

LD (PARAM2).HL 

POP HL 

LD (PARAMD.HL 



i Get return address 

tand save it 

i Get and save PARAM2 

» Get and save PARAM1 



LD HL. (PARAM2) 
LD (LOCALD.HL 



i Move PARAM2 
t to LOCAL 1 



EXIT: 



LD 
JP 
.END 



HL. (RETADDR) 
(HL) 



i Get return address 



For assembly language functions ( FUNC's) the sequence is 
essentially the same, except that: 

1) Two words of zeros av pushed by the compiler before any 
parameters ar* put on the stack. 

2) After the stack has been completely cleaned up at the 
routine exit time, the . FUNC must push the function result on the 
stack. 

Here is an example of an external assembly language procedure, 
and a program that uses it. This example takes a very primitive 
approach to interrupt handling (which might still be useful in some 
applications). There is no provision for handling interrupts from the 
device where a collected buffer is being written to disk. Support for 
continuous interupts would be more complex, involving multiple buffers 
and exclusion mechanisims to assure that buffer switching would occur 
reliably. The Project intends eventually to provide synchronization 
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capabilities at the Pascal level* to that int 
accomplished with greater convenience and saf 



. PROC 




DRCOLLECT, ; 


Name 




.CONST 


DRBUFLENG ; 


Pobl 




. PUBLIC 


DR BUFFER i 


Publ 


DRADDR 


. EQU 


167770 




DRVECT 


. EQU 


140 






MOV 


#HANDLR,G#DRVECT 


;Lo 




MOV 


#340. e#DRVECT+2 


i ha 




MOV 


♦DRBUFLENG, RO 


>Lo 




MOV 


#DRBUFFER,R1 


} Lo 




BIS 


#100. e#DRADDR 


; En 


LOOP: 


TST 


RO 


;Ex 




BNE 


LOOP 






BIC 


#100. e#DRADDR 


;Di 




RTS 


PC 


j Re 


HANDLR: 


MOV 


6#DRADDR+2, <R1>+ 


i Lo 




DEC 


RO 


) in 




RTI 




; Ri 



errupt handling can be 
ety. 



of routine for use by linker, 
ic constant, 
ic variable. 



ad address of interrupt 
ndler and set priority, 
ad RO with size of buffer, 
ad Rl with address of buffer, 
able interrupts on DR interface. 

It loop when buffer full. 



sable interrupts, 
turn to PASCAL host 



program. 



ad buffer with next word, 
crement Rl* decrement RO. 
iRtjturn from interrupt. 



PROGRAM COLLECTDATA; 
CONST 

DRBUFLENG - 256; 



TYPE 

DATABUFFER ■ Array C 1. . DRBUFLENG 1 of integer; 

VAR 

I: Integer! 

DRBUFFER: DATABUFFER J 

DATAFILE: File of DATABUFFER; 



PROCEDURE DRCOLLECT; 
External; 

BEGIN (*of Collect Data*) 
Rewrite( DATAFILE, 'SAMPLE. DATA' >; 
For I:«l to 10 do 
BEGIN 
DRCOLLECT; 
DATAFILE -\ -DRBUFFER; 
Put( DATAFILE ); 
END; 
Close ( DATAFILE. Lock ); 
END. 
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3. 3. 2. 3/ ASSEMBLY LANGUAGE TO ASSEMBLY LANGUAGE LINKAGES 



The third way in which separate routines mag share data 
structures and subroutines is by linkage <jrom assembly language to 
assembly language. This is made possible through the use of the . DEF 
and . REF pseudo-ops provided in the UCSO assemblers. These generate 
link information that allows two separately assembled procedures to b< 
L(inked together. One possible use for tijls will be the linking of 
separate routines and drivers in constructing new UCSD interpreters. 



The following are very abbreviate^ versions of two assembly 
language routines which make separate references. They mv used 
externally by the UNIT PSSRAPHICS: 

The first routine declares three public variables and declares 
a . DEF for a label to be referenced by the, second routine < Note that 
this is only a skeleton of the actual MOV^TO routine ): 

. PROC MQVETO. 6 I THE 3 REAL PARAMETERS OCCUPY 6 WORDS 

PROCEDURE MOVETQ<X, Y, Z: REAL) J 

COMPUTES A NEW PSXPOS & PSYPOS FROM PSMATP AND 
AN ASSUMED 1. AS THE INPUT VECTOR HOMOGENOUS 
COORDINATE. . . 



<X Y Z 1) dot PSMATP"* 
PSXPOS := X'/W'j 
PSYPOS :» Y'/W'i 



(X 



Z' W'> 



i THESE ARE GL03ALS IN THE PASCAL HOST 
.PUBLIC PSXPOS 
.PUBLIC PSYPOS 
.PUBLIC PSMATP 



MOV 
MOV 
MOV 



R5. -<SP> 

SP.RS 

«#PSMATP,RO 



AS FRAME POINTER 



i MOVETO ENTRY POINT 

i R5 USED 

j RO IS TOS MATRIX POINTER 
PARAMETER DISPLACEMENTS FROM R5 FRAME POINTER 



. EQU 14 

. EQU 10 

.EQU 4 

. EQU -4 

t 

t COMPUTE W*# HOMOGENEOUS COORD 

I AND LEAVE IT ON STACK 

i 

l 
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ROUND: 



END 



COMPUTE PSXPOS 
NOW COMPUTE PSYPOS 

CLEAN UP STACK AND RETURN 



ROUND REAL ON STACK TO INTEGER 
IF < THEN SUBTRACT O. 5 ELSE 
ADD 0. 5, THEN TRUCATE. 



The second routine reference* the f 
fteparately assembled DRAWLINE routine 
LINETO before the routine can be linked in 
a PASCAL UNIT or PROGRAM. 



irst routine as well as the 
MOVETO must be linked into 

as an external procedure to 



PROC LINETO. 6 ; PARAMETERS OCCUPY 6 WORDS 

PROCEDURE LINETO(X. Y, Z: REAL* J 

DRAWS A LINE FROM THE LAST POINT CONTAINED IN 
PSXPOS & PSYPOS TO THE NEW TRANSFORMED POINT 
QIVEN BYX, Y, U... ! 

SAVEX :« PSXPOS* SAVEY :» PSYPOS; 

MDVETOCX. Y, Z>; 

DRAWLINE (JUNK. PSBUFP~. 20, 160+SAVEX. 120-SAVEY, 

PSXPOS-SAVEX. SAVEY-PSYPOS, 1)1 



. PUBLIC PSXPOS 
.PUBLIC PSYPOS 
. PUBLIC PSBUFP 
. PRIVATE RANGE 

.REF MOVETO 
. REF DRAWLINE 

i LINETO ENTRY POINT 





MOV 


R5. -<SP> 




MOV 


SP.R5 


SAVEX 


. EQU 


-2 


SAVEY 


. EQU 


-4 


X 


. EQU 


14 


Y 


. EQU 


10 


Z 


.EQU 


4 



i USE R5 AS STACK FRAME POINTER 



SAVEX :« PSXPOS; SAVEY 
MOVETCKX. Y# Z); 



PSYPOS; 
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JSR PC, ®#MOVETO 



PC, fc#DRAWLINE 



i DRAWLINEC. . . )j 

) 

JSR 

i 

i ALL DONE. . . RETURN 

I 

JMP «RO 



END 



For examples and mora information s»i 



section 1. 9 ASSEM 
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• LONO INTEGERS * * SECT 



Version I. 5 



*«**•*-**•**«***#«* 



September 1978 



A new addition to U. C. S. D. Pascal pret 
the optional use of a length attribute (aval 
11 based micros). This essentially constitu 
In the remainder of this document* be referr 
The LONG INTEGER is suitable for business, sd 
applications in which the need for eitended 
complete accuracy is felt. This extension *U 
standard INTEGER arithmetic operations (add! 
division and multiplication) as well as routi 
conversion to strings and standard INTEGERS, 
enforced throughout to reduce potential erroT 1 
declaration of constants and inclusion in str 
fully supported and ar^ analogous to the usaj 



LONG INTEGERS mm declared using the 
INTEGER followed by a length attribute in sq 
length is an unsigned number, not larger thaiji 
number of decimal digits representab le by th 
example, a variable called 'X' capable of st 
decimal digit signed number would be created 

VAR X: INTEGER C 8.1 1 



Constants are defined in the normal manner: 



CONST RYDBERG 



10973731; 



In the above example RYDBERG would be 
and could be used anywhere a LONG INTEGER co 



In general LONG 
syntactically correct t 
for now LONG INTEGERS a 
statements (but not ass 
care must be taken to e 
by the declared length 
assignment or arithmeti 
subsection for complete 
converted as required u 
with, a LONG INTEGER 
correctly handled. Exa 



INTEGERS may be used 
o use REALs (not full 
re limited to aritmet 
ignment to a REAL) 
insure that sufficient 
attribute for storage 
c expression statemen 
details). INTEGER e 
pon assignment to. or 
The reverse is not trii» 
mples: 



ION 3. 3. 3 • 



eclared type INTEGER is 
able only on LSI 11/PDP 
es a new ttjpe and will* 
d to as LONG INTEGER, 
ientific or other 
umber length with 
pports the four basic 
ion. subtraction, 
nes facilitating 
Strong type checking is 
s. Input/Output, in line 
uctured types mv all 
e of standard INTEGERS. 



tandard identifier 
i)are brackets. This 

36. denoting the minimum 
LONG INTEGER. For 
dring at least an eight 
by: 



by default a LONG INTEGER 
uld be used. 



nywhere it is 

implemented until II. Oi 
c operations, assignment 
TftUNC. and STR); however 
words have been allocated 
of the result of 
s (see note in next 
pessions mt» implicitly 
arithmetic operations 
e. Unary plus/minus is 
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VAR I 
L 

6 



INTEGER; 
INTEGER CN3i 
REALi 



Li compile tii 



—Li correct, w 



li aluiaus corr | 
Si never acce 



Li will be imo 



23372036Q 54773807 



Arithmetic operations which may be 
LONG INTEGERS »tb any or all from the set 
Plus/minus. On assignment the length of t 
(during execution) to the declared length 
therefore an interrupt (overflow) may rest 
occurs only when the intermediate result « 
required to store (as a minimum) thirty-se 
the final result is assigned to a variable 
attribute. (On the matter of the length at 
defines: a length attribute of 5 thru 9 ma 
2147483647* length attributes of 10 thru 1 
140737488355327, 15 thru 18 . . 9 
interested reader to compute any larger le 
capacities. Thus it would be unwise to at 
as a subrange. This range of length attri! 
upper bound is a result of the allocation 
amount of additional storage, i. e. 3 thru 
INTEGER. ) All of the standard relational 4 
mixed LONG INTEGER and INTEGER. 

The function TRUNC(L), where 'L* is 
convert 'L' to an INTEGER (i.e. TRUNC will 
well as a REAL as an argument). Interrupt 
is greater than MAXINT. 

The procedure STR(L, S) converts the 
'L'» into a string (complete with minus si 
in the STRING 'S'. The following program 
suitable dollar and cent routine: 

STR(L, S)i INSERTC. ', S, LENGTH(S)-1 ) 

Where 'L' and 'S' av appropriately 
are the only two routines which currently 
parameters. An attempt to declare a LONG 
will result in a compile time error, which 
creating a type which is a LONG INTEGER. 



where N is an acc eptable length 



e error, see TRUNC(L) below 



th the usual exception 



ffJLt 



ted 



lemented with II. O 



used in conjunction with 
+, —» *> DIV, unaru 
he LONG INTEGER is adjusted 
attribute of the variable* 
It. An interrupt (overflow) 
xceeds the number of words 
ven decimal digits, or when 

with insufficient length 
tribute and what it 
y store up to and including 
4 may store thru 

It is left to the 
ngth attribute storage 
tempt to use a LONG INTEGER 
butes all having the same 
of a full word as the least 
9 represent a two word 
perators may be used with 



a LONO INTEGER, will 
accept a LONG INTEGER as 
(overflow) will result if L 



INTEGER or LONG INTEGER 
gn if needed) and places it 
segment will provide a 



; WRITELN(S); 

declared. TRUNC and STR 
will accept LONG INTEGERS as 
INTEGER in a parameter list 

may be circumvented by 
For example: 
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TYPE LONG « INTEGER C 183; 
PROCEDURE BIGNUMBER(BANKACCT: 



LONG ) i 



The LONG INTEGER is stored as a mult 
binary number. System and interpreter rout 
m% required. Maximum storage efficiency is 
expansion and contraction of word allocatio 
LONG INTEGER operations the length is place 
number itself* the declared length attribut 
can be less than this length. 



i— word* twos complement 
ines do the I/O conversions 

achieved by dynamic 
n as required. During 
d on the stack above the 
e need not be the same and 
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« PSp^DD-MACHINE ARCHITECTURE « 



• Section 3. 4 * 
197B 



Version I. 5 September 

The UCSD Pascal P-machine, designed s 
execution of Pascal programs on small machine 
modified descendant of the P-2 pseudo-machine 

variable addressing, including strings, byte array*, packed fields) and 
dynamic variables; logical, integer, real, an 
arithmetic and comparisons; multi-element str 
several types of branches; procedure/function 
Including overlayable procedures; miscellaneo 
systems programs; and an I/O system. 



pecifically for the 
s, is an extensively 
from Zurich. It supports 



d set top-of-stack 
ucture comparisons; 
calls and returns, 
us procedures used by 



This Section, to be used in conjunct! 
describes the P-machine "hardware," communica 
system, exceptional condition handling, the 
system, and the bootloading process. 



on with Section 3.5, 
tion with the operating 
instruction set, the I/O 



NOTE: n ot all of the above will be included in the 1.3 release 



and wi ll onlu be available sometime later 



3.4. 1 



HARDWARE 



There exists no physical P-machine (y 
exists only as interpreters written in assemb 
computers. However, this can and will be ign 
description. 



et!>. The P-machine 
ly languages of actual 
ored in the following 



The P-machine uses 16-bit words, with two 8-bit bytes per 
word. It has several registers and a user memory, in which »T9 kept a 
stack and a heap. All registers are pointers to word-aligned 
structures, except IPC, which is a pointer toj byte-aligned 
instructions. The registers are: 

SP: Stack Pointer is a pointer to the top of the execution stack. The 
stack starts in high memory and grows toward low memory. It 
contains code segments and activation records, and is used to pass 
parameters, return function values, and as an operand source for 
many instructions. The stack is extended py loads and procedure 
calls, and is cut back by stores, procedure returns, and arithmetic 
operations. 

NP: New Pointer is a pointer to the top of the dynamic heap. The heap 
starts in low memory and grows upward toward the stack. It 
contains all dynamic variables (see Jensen and Mirth, Chapter 10). 



It is extended by the standard procedure 
the standard procedure 'release'. 



'new', and is cut back by 
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JTAB: Jump TABle pointer is a pointer t 
of the currently executing procedure. 

SEO: Segment Pointer points to the proc 
to which the currently executing proc 
3. S» figure 6. ) 

MP: Most recent Procedure is a pointer 
currently executing procedure. (Sse 
Variables local to the current proced 
off MP. 

BASE: BASE Procedure is a pointer to the 
recently invoked base procedure (lex 
level O) variables av9 accessed by in 



o the procedure attribute table 
(See Section 3. 5. figure 3. ) 

edure dictionary of the segment 
•dure belongs. (See Section 



to the activation record of the 

Section 3. 5* figure 7. ) 

ure MTt accessed by indexing 



activation record of the most 
level 0). Global (lex 
dexing off BASE. 



3. 4.2 



OPERATING SYSTEM/P-MACHINE COMMUNICATION - SYSCOM 



It is sometimes necessary for the 
machine to exchange information. Hence t 



operating system and the P- 
here exists a variable SYSCOM 



in the outer block of the operating system* and a corresponding area in 



memory known to the hardware. The fields 
to this communication are: 

IORSLT: contains the error code return 
terminated I/O operations. (See I/O 
system read and write procedures. > 

XEQERR: contains the error code of the 
exception handling below.) 

SYSUNIT: contains the unit number of th 
was booted from (usually 4 or 5). 

BUGSTATE: contains the current bugstate. 

GDIRP: contains a pointer to the most 
unless dynamic allocation or dealloca 
(See MRK. RLS, and NEW instructions b 

STKBASE. LASTMP. SEG. JTAB: copies of th 
registers. 



in SYSCOM actually relevant 



ed by the last activated or 
section below< and operating 



BOMBP: contains a pointer to the acti 

system routine EXECERROR when a runtime error occurs. (See 
exception handling. ) 



last run-time error. (See 
e device the operating system 

(See BPT instruction below. ) 

recent disk directory read in. 
tion has taken place since then, 
elow. ) 

e BASE, MP. SEO and JTAB 
vation record of the operating 
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BQMIPC: 



contains the value of IPC when a 



HLTLINE: contains tht line number of the 
(See BPT instruction. > 

BRKPTS: contains up to four line numbers 
(See BPT instruction. ) 



CRTINFO. EOF: 
driver). 



contains the end-of-file character (see console input 



CRTINFO. FLUSH: contains the flush-output 
output drivers). 

CRTINFO. STOP: contains the stop-output c 
and input drivers)., 

CRTINFO. BREAK: contains the break-executi 
input driver). 

SECTABLE: contains the segment dictionary 



3. 4. 3 EXCEPTION HANDLING - XEQERR 



run-time error occurs. 

ast conditional halt executed. 

of breakpointed statements. 



character (see console input* 



haracter (see console output 



on character (see console 



for the pascal system. 



Whenever a run 
current instructio 
condition as possi 
This routine 

1) enters the 

2) calculates 
that. (The 
by the P-ma 

3) stores the 

4) points IPC 
EXECERROR ) 

9> resumes exe 



-time error occurs, the Pj-machine stops executing the 
n (ideally leaving the evaluation stack in as nice a 
ble) and transfers control to the XEQERR routine. 

error code into SYSCOfT. XEQERR. 

what MP will be after ste(> 4. and sets SYSCOM^. BQMBP to 

size of EXECERROR 's activation record must be known 
chine. ) i 

current value of IPC intoj SYSCOM"\ BOMIPC. 
to a CXP 0*2 (call operating system procedure 
instruction, 
cution of Interpreter code* starting with the CXP. 



3, 4. 4 



OPERAND FORMATS 



Although an element of a structure may pccupy as little as one bit. 
if in a PACKED ARRAY OF boolean* variables in the P-machine mrw 
always aligned on word boundaries. All top*-of-stack operations expect 
their operands to occupy at least one word* even if not all the 
information in a word is valid. The least significant bit of a word is 
bit 0. the most significant is bit IS. 
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BOOLEAN: On* word, 
this i« 



Bit indicates the value (falss-O* true-1). end 
this is the only Information used by boolean comparisons. However* 
the boolean operators LAND* LOR* and LNOT operate on all 16 bits. 



INTEGER: One word* two's complement* capable of representing values in 
the range -32768. . 32767. 

SCALAR (user-defined):: One word* in range 0. . 32767. 



CHAR: One word* with low byte containing 
character set is "extended" ASCII* with 
standard ASCII set* and 128. . 255 as a 



REAL: Two words* with format implement. 
is arranged so that only the Interpret 
internal format of REALs (beyond the f, 
words) Following •v the two detailed 
(as of I. 4) support. 



character. The internal 
0. . 127 representing the 
ser-defined character set. 



tion dependent. The system 
4r needs to know the detailed 
ct that they occupy two 
formats for the CPUs we now 



PDP11: 

word 1: 



15 



low mantissa 




Z80/8080: 



15 



word 1: ! 



8 



low mantissa \ middle mantissa ! 




Both representations have an excess-128 exponent* a fractional 
mantissa that is always normalized* exponent base 2* »n implicit 
24th mantissa bit* and zero represented) by a zero exponent. (See 
PDP11 processor manual or Z80/8080 interpreter listing for greater 
detail. ) 

POINTER: One or three words* depending on type of pointer. 

Pascal pointers* internal word pointers: one word* containing a word 

address. 
Internal byte pointers: one word* containing a byte address. 
Internal packed field pointers: three words. 

word 2: word pointer to word field is in. 

word 1: field„width (in bits). 

word 0: right„bi t_number of field. 



SET: 



0. . 255 words in data segment* 1. . 256 words on stack. Sets mrm 
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implemented as bit vectors* always with a lower index of zero. A 
set variable declared as set of m. . n is allocated (n+19) div 16 
words. When a set is in the data segment* all words allocated 
contain valid information. 

When a set is on the stack* it is represented by * word 
containing the length* and then that number of words* all of which 
contain valid information. All elements past the last word of a 
set are assumed not to be elements of the set. Before being stored 
back in the data segment* a set must be forced back to the size 
allocated to it# and so an ADJ instruction must be issued. 

RECORDS and ARRAYS: any number of words (up to 16384 words in one 

dimension). Arrays are stored in row-majof order* and always have 
a lower index of zero. Only fields or elements are loaded onto the 
stack - never the structure itself. Packed arrays must have an 
integral number of elements in each word* a* there is no packing 
across word boundaries (it is acceptable to have unused bits in 
each word). The first element in each word has bit as its low- 
order bit. 

STRINGS: 1. . 128 words. Strings are a flexible version of packed 

arrau s of char. A stringCn? occupies (n diy 2)+l words. Byte O 
of a string is the current length of the string* and bytes 
1. . length (string ) contain valid characters; 

CONSTANTS: constant scalers* sets* and strings may be imbedded in 

the instruction stream* in which case they have special formats. 

All scalars (excluding reals) not in the range; O. . 127: two bytes* 
low byte first. 

Strings: all string literals take length ( literal )+l bytes* and 

are byte aligned. The first byte is the length* the rest »re the 
actual characters. This format applies even if the literal should 
be interpreted as a packed arrau ££. char (see SIP and S2P 
below). 

Reals and sets: word aligned* and in reverse word order. 



3. 4. 5 INSTRUCTION SET FORMAT 

Instructions on the P-machinc are one or two bytes long* followed 
by zero to four parameters. Most parameters specify one word of 
information* and mrt one of five basic types. 

UB unsigned byte: high order byte of parameter is implicitly zero. 

SB signed byte: high order byte is sign extension of bit 7. 

DB don't care byte: can be treated as SB or US, as value is always in 
the range 0. . 127. 

B big: this parameter is one byte long when used to represent values in 
the range 0. . 127* and is two bytes long when representing 
values in the range 128. . 32767. If the first byte is in 
0. . 127* the high byte of the parameter is implicitly zero. 
Otherwise* bit 7 of the first byte is cleared and it is used as the 
high order byte of the parameter. The second byte is used 
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as the low order byte. 
W word: the next two bytes* low byte firtt, is the parameter value. 
*■ ! 

Any exceptions to these formats mr% not»d in the instructions where 
they occur. 



3.4.6 ENGLISH INSTRUCTION SET DESCRIPTION 

In the following section* references to an element on the stack mv 

context-dependent, and can mean anywhere from one word to 256 words. 

Also* unless specifically noted to the contrary* operands *T9 popped off 
the stack - they mrm not left around. 



Abbreviations mre used wid 
Parameters ar9 written as X or 
id is an integer indicating the 
Tos means the operand on the t 
etc. Mark Stack Control Word 



ely. but use 
X_n* where X 
parameter po 
op of stack* 
is abbreviate 



fairly simple conventions. 
| is UB. SB. DS* fi. or U* and 
Sition in the instruction. 
tos-1 the next operand* 
d to MSCW. 



Many instruction 
this document assume 
calling in stack mac 
Activation record as 

1) the local dat 

2) the MSCW. con 
information o 
was called. 
(See Section 



s refer to the activati 
s the reader has a gene 
hines* and the concept 

defined in this docume 
a segment of the proced 
taining addressing info 
n the calling procedure 



on record of a procedure* and 

pal knowledge of procedure 

of stack frames. An 

nt specifically consists of: 

yre* and 

rotation (static links), and. 

s environment when the procedure 



3. 3. figure 7. ) 



The dynamic chain refers to the calling 
MSCW. MSDYN links. The static chain refers! 
chain, traversed using the MSCW. MSSTAT link 



chain, traversed using the 
to the lexical or ancestor 

s. 



MNEMONIC 



OP-CODE 



PARAMETERS 



FULL 



». A VARIABLE FETCHING. INDEXING. STORING* 
«. A. 1 ONE WORD LOADS AND STORES 



9. A. 1. a 
SLDC 



CONSTANT ONE WORD LOADS 



O. . 127 



Short load 
opcode* with hi 



NAME AND OPERATION 



AND TRANSFER INO 



word constant. Pushes the 
gh byte zero* onto stack. 
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LDCN 



LDCI 



LLA 

STL 

a. A. 1. c 
SLDOl 
SLD016 
LDO 

LAO 

SRO 

5. A. 1. d 
LOD 

LDA 
STR 



159 



199 



U 



■ Load conitan 
imp lementat ion-d 

Load conitan 



5. A. 1. b LOCAL ONE WORD LOADS AND STORE 



Short load 1 
the word with of 
record and pushe 



SLDL1 


216 


SLDL16 


231 


LDL 


202 



19S 



204 



Load local iw 
offset D in MP a 

Load local a 
the word with off 
and pushes it. 

Store local 
with offset B in 



GLOBAL ONE WORD LOADS AND STORE 
232 



247 
167 

165 

171 



Short load g 
the word with of 
record and pushe 



Load global 
offset B in BASE 
it. 



Load global; 
address of the 
activation reco 

Store globa 
word with offse 



t ni 1 . Pushes the 
ependent value of nil . 

t word. Pushes W. 



ocal word. SLDLx fetches 
fset x in MP activation 
s it. 

ord. Fetches the word with 
ctivation record and pushes it. 

ddress. Fetches address of 
set B in MP activation record 



word. Stores tos into word 
MP activation record. 



lobal word. SLDOx fetches 
fset x in BASE activation 
s it. 



word. Fetches the word with 
activation record and pushes 



address. Pushes the word 
Word with offset B in BASE 
d. 



word. Stores tos into the 
B in BASE activation record. 



INTERMEDIATE ONE-WORD LOADS AND STORE 



18H 

178 
184 



DB.I) 

DB/B 
DB.B 



Load interfile 
number of statij 
activation reco 
within the acti 



Load interm 
Store interrh 



diate word. DB indicates the 

links to traverse to find the 
d to use. B is the offset 
vation record. 



diate address, 
ediate word. 
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9. A. 1. e INDIRECT ONE-WORD LOADS AND STORg 
194 



STO 
SINDO 



Stort indi 
ward pointed tli 



248 



Load indirect 



9. A. 2 MULTIPLE WORD LOADS AND STORES (SET J! AND REALS) 



ILDC 



ILDM 



STM 



179 



188 



189 



UB<block> Load multi 
number of word 
word aligned b 
word order. 



UB 



UB 



9. A. 3 BYTE ARRAYS 
BYT 210 



LDB 



STB 



MVB 



190 



191 



169 



IXB 



209 



ect. To* is stored into thi 
bg tos-1. 



le word constant. UB is th< 

to load* and <block> is a 
ock of UB words* in reverse 
Load the block onto the stack. 



Load multiple words. Tos is a painter 
to the beginning of a block of UB words. 
Push the block onto the stack. 



Store multi 
UB words* tos-jj 
similiar block, 
stack to the di 



Byte convej 
tos to a byte j 
Z80/608C imp 1 eme 



Load byte.j 
high byte) poi 

Store byte, 
location speci 



Move bytes, 
pointer to a b 
byte destinati 
block. Transf 
destination bl 
redundant due j 
be replaced by 

Index byte 
formed from the 
pointer tos-1. 



9. A. 4 STRINGS 



pie words. Tos is a block of 
is a word pointer to a 
Transfer the block from the 
stination block. 



sion. Convert word pointer 
ointer. (NOP on the PDP11 and 
ntations. ) 



Push the byte (after zeroing 
ted to by byte pointer tos. 

Store byte tos into the 
led by byte pointer tos— 1. 



Tos is a byte source 
ock of B bytes* tos-1 is a 
6n pointer to a similiar 
>r the source block to the 
ick. (This instruction is 
:o word alignment* and will 
MOV in the future. ) 

*rrs^. Push a byte pointer 
integer index tos and the byte 
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LCA 



BAS 



166 



170 



UB*<chars> Load constant 
byte pointer to jt 
in* and skip IPC 



UB 



SIP 



S2P 



zxs 



208 



157 



155 



String to pac 
is a byte pointer 
Incremented by on 



string address. Push a 
he location UB is contained 
past <chars>. 



String assign. Tos is either a source 
byte pointer or a character. (Characters 
always have a high byte of zero* while 
pointer never do. ) Tos-t is a destination 
byte pointer. UB is the declared size of 
the destination string. If the declared 
size is less than the current size of the 
source string* a run-time error occurs; 
otherwise all bytes of source containing 
valid Information are transferred to the 
destination string 



ked conversion on tos. Tos 

to a string* and is 
e byte in order to point to 



the first character of the string 



String to packed conversion on tos-1. 
Tos and tos-1 are jbyte pointers* and tos— 1 is 
incremented by one! byte. 



Index string 
operation as IXB 
index is checked 
1. . current length 
occurs. 



array. Performs the same 

except before indexing the 

to see if it is in the rangi 

If not* a run-time error 



5. A. 5 
MOV 

SXNDO 
SIND7 
IND 

ZNC 

IXA 



RECORD AND ARRAY INDEXING AND ASSIGNMENT 



168 

248 
255 
163 

162 

164 



Move words. jTos is a source pointer to 
a block of B words* tos-1 is a destination 
pointer to a simi|liar block. Transfer the 
block from the source to the destination. 

I 

Short index and load word. SINDx indexes 
the word pointer |tos by x words* and pushes 
the word pointed ito by the result. 



Static Index 
word pointer tos 
word pointed to. 

Increment fie 
pointer tos is in 
resultant pointer 



Index array 
tos-1 is the arra 



and load word. Indexes the 
by B words* and pushes the 



Id pointer. The word 
dexed by B words and the 
is pushed. 



Tos is an integer index. 
►y base word pointer* and B 
is the size (in Words) of an array element. 
A word pointer to| the indexed element is 
pushed. 
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IXP 



LDP 



STP 



192 UB_1»UB_2 IndtJt packed array. Tos it an integer 

index* tos-1 is the array base word pointer. 
DB_1 is the number of element_per_word* and 
DBJZ is the field_width (in bits). Compute 
and push a packed field pointer. 

186 Load a packed field. Push the field 

described by 1fhe packed field pointer tos. 

187 Store into a packed field. Tos is the 
data* tos-1 is a packed field pointer. Store 
tos into the field described by tos-1. 



5. A. 6 DYNAMIC VARIABLE ALLOCATION AND DE-ALLOCATION 



NEW 



158 1 



MRK 



RLS 



158 31 



158 32 



New variable allocation. Tos is the size 
(in words) to allocate the variable* and 
tos-2 is a word pointer to a dynamic 
variable. If GDIRP is non-nil, cut HP 
back to GDIRP and set GDIRP to nil. Store 
NP into word pointed to by tos-1* and 
increment NP by tos words. 

Hark heap. Release GDIRP and set to nil 
if necessary* then store NP into word pointed 
to by tos. 

Release heap. Set GDIRP to nil * then 
store word pointed to by tos into NP. 



5. B TOP OF STACK ARITHMETIC AND COMPARISONS 
5. B. 1 LOGICAL 



LAND 


132 




LOR 


141 




LNOT 


147 




EQUBOOL 


175 


6 


NEQBOOL 


183 


6 


LEQBOOL 


180 


6 


LESBOOL 


181 


6 


GEGBOOL 


176 


6 


GTRBOOL 


177 


6 



Logical and. And tos into tos-1. 

Logical or. Qr_ tos into tos-1. 

Logical not. Take one's complement of tos. 
Boolean »* 



O, 



<«* 



and > comparisons. 
Compare bit of tos-1 to bitjO of tos and push 
true or false. 
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AD I 


130 


NCI 


145 


SB I 


149 


MPI 


143 



5. B.2 INTEGER 

ABI 128 Absolute value of integer. Take absolute 

value of integer to*. Result is undefined if 
tos is initially -32768. 

i 
Add Integers. Add tos and tos-1. 

Negate Integer. Take the two's 
complement of tos. 

Subtract integers. Subtract tos from tos-1. 

Multiply integers. Multiply tos and tos-1. 
This instruction may cause overflow if result 
is larger than 16 bits. 

SGI 152 Square integer. Square tos. May cause 

overflow. 

DVI 134 Divide integers. Divide tos-1 by tos and 

push quotient. (PDP11 quotient defined as in 
Jensen and Wirth; 280/8080 quotient defined 
by floor (tos-1/tos). ) 

MODI 142 Modulo Integers. Divide tos-1 by tos and 

push the remainder (as defined in Jensen and 
Wirth). 

CHK 136 Check against subrange bounds. Insure 

that tos-1 <« tos-2 < m tos. leaving tos-2 on 
the stack. If conditions are not satisfied 
a run-time error occurs. 

EQUI 195 Integer «* 

NEQI 203 O* 

LEQI 200 <». 

LESI 201 C. 

CEQI 196 >-. 

CTRI 197 and > 

comparisons. Compare tos-1 to tos and push 

true or false. 

5. B. 3 REALS 

All over/underflows cause a run-time error. 

FLT 138 Float top-of-stack. The integer tos is 

converted to a floating point number. 
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FLO 



TNC 



RND 



ABR 



137 



198 22 



198 23 



129 



ADR 


131 


NGR 


146 


SBR 


190 


MPR 


144 


SQR 


193 


DVR 


139 


POT 


198 39 



Float next to top-of-stack. Tot is a real, 
tos-1 is an integer. Convert tos-1 to a real 
number. 

Truncate rfal. The real tos is truncated 
(as defined in Jensen and Mirth) and -■ 
converted to ah integer. 

Round real. The real tos is rounded (as 
defined in Jensen and Mirth), then truncated 
and converted to an integer. 

Add reals. Take the absolute value of 
the real tos. 

Add reals. Add tos and tos-1. 

Negate real. Negate the real tos. 

Subtract reals. Subtract tos from tos-1. 

Multiply reals. Multiply tos and tos-1. 

Square real. 

Divide reals. Divide tos-1 by tos. 

Power of ten. The integer tos is check 
for <■ tos <± 38 » a run-time error 
occurring if the conditions aren't satisfied. 
The implementation dependent value 10 "* tos 
is pushed. This facility allows the rest of 
the system to be independent of floating 
point format. 



SIN 


198 


24 


COS 


198 


29 


ATAN 


198 


27 


EXP 


198 


29 


ILN 


198 


28 


LOG 


198 


26 


SOT 


198 


30 


EQUREAL 


179 


2 


NEQREAL 


183 


2 


LEQREAL 


180 


2 


LESREAL 


181 


2 


CEQREAL 


176 


2 


©TRREAL 


177 


2 



Sine. Take the sine of the real tos. 

Cosine. 

Arctangent. 

Exponential. e * tos. 

Natural logarithm. 

Log base 10. 

Square root. 



Real ». 



O. 



<«» 



<. 



>-» 



Push TRUE or FALSE. 



and > comparisons. 
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9. B. 4 SETS 
AD J 160 



UB 



8CS 



SRS 



INN 



UNI 



INT 



DIF 



EQUPOWR 
NEQPOWR 
LEQPOWR 
OEQPOWR 



151 



148 



139 



156 



140 



133 



175 8 
183 8 
1B0 8 

176 8 



Adjust set. fht set tos Is forced to 
occupy UB words, either by expansion (putting 
icroes "between" ^os end tos-1) or 
compression (chopping of high words of set)* 
and its length word is discarded. 

Build a singleton set. The integer tos 
is checked to Insure that O tos <« 4079* a 
run-time error occurring if not. The set 
Ctos3 is pushed. 

Build a subrange set. The integers tos 
and tos-1 mr^ checked as in SCS. and the set 
Ctos-l..tos3 is pushed. (The set C3 is 
pushed if tos-1 > tos. ) 

Set membership. See if integer tos_l is 
in set tos* pushing TRUE or FALSE. 

Set union. The union of sets tos and 
tos-i is pushed. (Tos ox tos-1. ) 

Set intersection. The intersection of 
sets tos and tos-1 is pushed. 
(Tos antf tos-1. ) 

Set difference. The difference of sets 
tos-1 and tos is pushed. 
(tos-1 and pot tos. ) 



Set 



O, 



(subset of)* 



and >■ 



(superset of) comparisons. 



5. B. 5 STRINGS 

EQUSTR 175 4 

NEQSTR 183 4 

LEQSTR 180 4 

LESSTR 181 4 

OEQSTR 176 4 

GTRSTR 177 4 



String «« 



O. 



<-i 



<* 



and > 

comparisons. The string pointed to by word 
pointer tos-1 is lexicographically compared 
to the string pointsVd at by tos. 
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5. B. 6 BYTE ARRAYS 



EQUBYT 
NEGBYT 
LEGBYT 
LESBYT 
OEQBYT 
OTRBYT 



173 10 
1G3 10 

180 10 

181 10 

176 10 

177 10 



Byte array », 



Oi 



and > 

comparisons. <*« <. >■» and > sv only 
emitted for packed arraus of char. 



5. B. 7 ARRAY AND RECORD COMPARISONS 

Word or multiword structure * 
comparisons. 



EQUWORD 
NEQWORD 



179 12 
183 12 



mmi O 



3. C 



JUMPS 



Simple (non-case statement) jumps 9T9 all two bytes long. The 
first byte is the op-code, the second is a SB jump offset. If this 
offset is non-negative* it is simply added to IPC. (A value of zero 
for the jump offset will make any jump a two-byte nop. ) If SB is 
negative* then SB div 2 is used as a word offset into JTAB. and IPC 
is set to the bute address <JTAB~CSB <£iy. 23) - JTABCSB dJLy. 23. 



UJP 



169 



SB 



Unconditional jump, 
above. 



Jump as described 



FJP 


161 


SB 


EFJ 


211 


SB 


NFJ 


212 


SB 


XJP 


172 


W- 



False jump. Jump if tos is false. 

Equal false jump. Jump if integer tos O 
tos-1. Not implemented in 1.4. 

Not equal false jump. Jump if integer 
tos *■ tos-1. Not implemented in 1.4. 



U_l.W_2tU.J3i <case table> 



Case jump. W_ 1 is word-aligned, and is 
the minimum index of the table. U_2 is the 
maximum index. W_3 is an unconditional 
jump instruction past the table. The case 
table is W - 2-U_l'*;l words long, and contains 
self-relative locations. 

If tos. the actual index, is not in the 
range W_l. . W_2. then IPC is pointed at 
U_3. Otherwise. tos-W_l is used as an 
index into the table, and IPC is set to 
by te_address<casetableCindex-min_index3)- 
casetableCindex-min_index3. 
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5. D PROCEDURE AND FUNCTION CALLS AND RETURNS 



The general scheme used in procedure/function invocation is 

1) Calculate the date_*ize and parameter_$ize of the called 
procedure by using the information in the current procedure 
dictionary (pointed to by SE<?>. 

2) Extend stack by data_size bytes. 

3) Copy parameter_size bytes from the 
beginning of the space just allocated. 

4) Build a MSCU, saving SP, IPC, SEC 
to the most recent activation record of the called procedure's 
immediate parent. 

5) Calculate new values for SP* IPC, JTAB, MP, and if necessary, 
SEO. Check for stack overflow. 

6) If the called procedure has a lex level of -1 or O save BASE 
and calculate a new BASE. 



old top-of-stack to the 
JTAB, MP, and a pointer 



CLP 



CGP 



206 



207 



UB 



UB 



Call local procedure. Call procedure UB, 
which is an immediate child of the currently 
executing procedure and in the same segment. 
Static link of MSCW is set to old MP. 

Call global procedure. Call procedure 
UB, which is at lex level 1 and in same 
segment. The static link of the MSCW is set 
to BASE. 



CIP 



174 



UB 



Call intermediate procedure. Call 
procedure UB in same segment as the 
currently executing procedure. The static 
link of the MSCW is set by looking up the 
call chain until an activation record is 
found whose caller had a lex level one 1 
less than the procedure being called. Use 
that activation record's static link as the 
static link of the new MSCW. 



CBP 



194 



UB 



Call base procedure. Call procedure UB, 
which is at lex level -1 or 0. The static 
link of the MSCW is set to the static link 
in BASE'S activation record. The BASE is 
saved, after which it is pointed at the 
activation record just created. 



CXP 



205 



DB_1,UB_2 Call external 
a ny procedure not 
the calling proce 



procedure. Used to call 
in the same segment as 
dure, including procedures 
at lex level ~1 or 0. It works as follows: 

1) Is desired segment in memory? This 
is determined by traversing up the call 
chain until an activation record of a 
procedure in the desired segment is found, 
or the operating system's resident 

CSP -- eds note: XX woi pointed oat tlhvt op-ccdz 15$ <u> CSV, and <U tccutttAtd tlvioughowt 
thli> document. TkU ivU.1 be ctcaJitd up In tht nzxt majoK documzntation 
z&io-xt. 
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RNP 



173 



OB 



RBP 



EXIT 



193 



158 4 



DB 



activation record is encountered. 

2a) no: read in segment from disk using 
the information in the segment dictionary* 
then build an activation record. However* 
extend stack by data sixe+paramsize in step 
2. 

2b) yes; build activation record normally. 

3) calculate the dynamic link for the 
MSCW: If the called procedure has a lex 
level of -1 or Oi set as in CBP* otherwise 
set as in CIP. 

Return from non-base procedure. DB is 
the number of words that should be returned 
as a function value (0 for procedures* 1 for 
non-real functions, and 2 for real functions). 
DB words are Copied from the bottom of the 
data segment and "pushed" onto the caller's 
top-of- stack. The information in the MSCW 
is then used to restore the caller's 
correct environment. 

Return from base procedure. The saved 
base is moved into BASE* after which things 
proceed as in the RNP instruction. 

Exit from procedure. Tos is the 
procedure number* tos-1 is the segment 
number. This operator sets IPC to point to 
the exit code of the currently executing 
procedure* then sees if the current 
procedure is the one to exit from. If it 
is* control returns to the instruction 
fetch loop. 

Otherwise* each MSCW has its saved IPC 
changed to point to the exit code of the 
procedure that invoked it* until the 
desired procedure is found. 

If at any time the saved IPC of main body 
of the operating system is about to be 
changed* a run-time error occurs. 



5. E SYSTEMS PROGRAMS SUPPORT PROCEDURES 

See Section 2. 1 for description of these procedures. 
BYTE ARRAY PROCEDURES 

FLC 158 10 Fillchar(dst. len* char). 
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SCN 


IDS!) 


MVL 


15B 01 


MVR 


159 OS 



Scantmaxdisp. start* forpast* char* mask) 
Movelef t <src» dst. numbytes). 
Mover ight(«rCi dst* numbytes). 

COMPILER PROCEDURES (still undocumented) 
TRS 158 OS Treesearch. 

IDS 158 07 Idsearch. 

DEBUGGER 
BPT 213 Breakpoint (conditional HALT) 

MISCELLANEOUS 
TIM 158 09 Time. 

XIT 214 
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• INTRODUCTION TO THE PASCAL PSEUDO-MACHINE * * Section 3. 5 * 

#*♦»♦****♦***#**##*#**#*******»*♦♦♦***»*♦*♦#« **«*•**«-*****«-* 

Version I. 5 September 1976 

UCSD uses an interpreter based implementation of Pascal. This 
implementation is interpreter based. This means that the compiler emits 
code for a pseudo-machine which is emulated at run time by a program 
written in the machine language of the host. The compiler, program 
editor, small stand-alone operating system/ and various utilities arm 
themselves written in Pascal and run on the same interpreter. Thus the 
entire system can be moved to a new host machine by rewriting the 
interpreter for the new host. 

Figure 3.3.10 (the last page of this document) is a skeleton version 
of a large Pascal program* here-in-after referred to as "The Program". 
This document is a top-down description of the realization of that 
program on the UCSD Pascal system. Me will make occasional use of a 
helpful coincidence: The Program is the framework of the portion of 
the UCSD Pascal environment that's written in Pascal. 

If The Program were expanded to a complete Pascal system* it 
would consist of at least 6000 lines of Pascal and compile to more than 
30*000 bytes of code— too big to fit all at once into the memory of a 
small machine (by our current definition of small). We have therefore 
extended Pascal so that a programmer can explicitly partition a program 
into segments * only some of which need be resident in main memory at 
a time. The syntax of this extension is shown in figure 3. 5. 1. (Any 
syntactic objects not defined explicitly there retain their standard 
interpretation as defined by Jensen & Wirth: Pascal User Manual and 

<program> : : * <program heading> <segment block> . 

<segment block> ::« <label declaration part> 

<constant declaration part> <type definition part> 
^variable declaration part> Csegment declaration part> 
Csegment body> 

<segment declaration part> ::» SEGMENT <procedure heading> 
<* eg merit block>i \ SEGMENT <f unction heading> 
<segment block>; 

<segment body>::«= <procedure and function declaration part> 
<statement part> 

FIGURE 3.5. 1. SEGMENT DECLARATION SYNTAX. 
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Segment declaration syntax (figure 3.3.1) requires that all nested 
segments be declared before the ordinary procedures or functions of 
the segment body. Thus* a code segment ;can be completely generated 
before processing of code for the next segment starts. This is not a 
functional limitation/ since forward declarations can be used to allow 
nested segments (COMPILER in The Program) to reference procedures in 
an outer segment body (CLEARSCREEN). Similarly, segment procedures 
and functions can themselves be declared! forward. 



Segmenting a program does not change it 
fundamental sense. When a segment is called (e 
segment in line A), the interpreter checks to s 
memory due to a previous invocation. If it is, 
and execution proceeds: if not* the appropriate 
loaded from disk before the transfer of control 
more active invocations of the segment exist, i 
memory. For instance, in The Program, the code 
segment is not present in memory either before 
of line A. Clearly, a program should be segmen 
(non— recursive) segment calls are infrequent! o 
could be lost in unproductive thrashing (partic 
low performance disk). 



not 

shown 

in 

the 

program 



DEBUGGER 

FILER 

EDITOR 

COMPINIT 

COMPILER 

INITIALIZE 



s meaning in any 
. g. the COMPILER 
ee if it is present in 
control is transferred 
code segment must be 
takes place. When no 
ts code is removed from 

for the COMPINIT 
or after the execution 
ted in such a way that 
therwise, much time 
ularly on a system with 



high address 
10 



USER PROGRAM 

PASCALSYSTEM 

SEGMENT DICITONARY 

> 

FIGURE 3. 5. 2. PASCAL SYSTEM CODE FILE. 



17 
12 

7 

41 

3 

1 

17 

1 

low address 
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The cod* filt resulting from compilation of The Program is 
diagrammed in figure 3.9.2*. The file is a sequence of code segments 
preceded by a segment dictionary. The size of each segment is noted 
in fa lecfct * the 512-byte disk allocation quantum used on most PDP-11 
operating systems. The sizes indicated are representative of a full 
Pascal system. Each code segment begins on a block boundary. The 
ordering (from low address to high address) is determined by the order 
that one encounters segment procedure bodies |in passing through The 
Program. 

• An overview of the relationship between figures 3.9.2 through 
3.9.8 (to be discussed in the following pages!) is given in figure 3.5.9 
at the end of this section. Zt is helpful to study figure 3.9.9 at this 
point for a better understanding of the section. 



The segment dictionary 
an entry for each code segm 
disk location and sizeCin b 
is given as relative to the 
is also the beginning of th 
blocks. This information i 
(also called SYSCOM) during 
used in the loading of non- 
Figure 3.9.3 details the la 
contents for the Pascal sys 



in the first block of a code file contains 
ent in the file. The entry includes the 
ytes) for the segment. The disk location 

beginning of the segment dictionary (which 
e code file) and is given in number of 
s kept in the system communications area 

the execution of the code file* and is 
present segments u|hen they »rt needed. 
yout of the table and shows representative 
tem code file. 



location 
size 



B900 
16 




20932 
63 



3480 
70 



5880 



PASCALSYSTEM 



USERPROGRAM 



COMPILER 



COMPINIT 



DEBUGGER 



FIGURE 3. 5. 3. THE SEGMENT DICTIONARY 
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A code segment contains the code for the 
procedures* including the segment procedure* itse 
detailed diagram of the code segment o;f The Prog 
Each of a code segment's procedures are assigned 
starting' at 1 for the segment procedure* and ran 
(current temporary limit of 127). All reference 
made via its number. Translation from procedure 
the code segment is accomplished with the proced 
end of the segment. This dictionary is an array 
procedure number. Each arr^xj element is a self- 
code for the corresponding procedure. Since zer 
procedure number* the rero'th entry of the dicti 
the segment number (even byte) and number of pro 
Observe that CLEARSCREEN is the first procedure 
generated and that it appears at the beginning o 
outer block code is generated and appears last. 



body of each 
if. Figure 3. 
ram (Pascalsys 

a procedure n 
ging as high a 
s to a procedu 

number to loc 
ure dictionary 

indexed by th 
relative point 
o is not a val 
onary is used 
cedures (odd b 
for which code 
f the segment. 



of its 
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FIGURE 3. 5. 4. A CODE SEGMENT 
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A more detailed diagram of a single procedure code section is 
se&n in figure 3.5.5. It consists of two parts: the procedure code 
itself in the lower portion of the section) and a table of attributes 
of the procedure. These attributes are: 

LEX LEVEL: This odd byte is the depth of absolute lexical nesting 
for the procedure. (i.e. Lex Level (LL) Pascalsystem— i# LL COMPILER 
or CLEAR5CREEN-0, LL COMPXNIT«l# etc. ). 

PROCEDURE NUMBER: This even byte refers to the number given in the 
procedure dictionary of the parent segment procedure. For example* 
the Procnum of CLEARSCREEN is 2. (see figure 3.3.4). 

ENTER IC:This is a self-relative pointer to the first instruction 
to be executed for this procedure. 

EXIT IC.This is a self-relative pointer to the beginning of the 
block of procedure instructions which must be executed to terminate 
procedure properly. 

PARAMETER SIZE: The param size is the number of bytes of 
parameters passed to a procedure from its caller. 

and DATA SEGMENT SIZE: The data size is the size of the data 
segment (See below) in bytes, excluding the markstack and PARAM SIZE. 

Between these attributes and the procedure code there may be an 
optional section of memory called the "jump table". Its entries sv 
addresses within the procedure code. JTAB is a term commonly applied 
to the six attributes just discussed and the jump table itself. 
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odd even 
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FIGURE 3. 5. 3. PROCEDURE CODE SECTION (OF CLEARSCREEN) 
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high addresses 
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FIGURE 3.3.6.- SYSTEM MEMORY DURING CLEARSCREEN EXECUT1UN 

Figure 3. 3. 6 is a snapshot of system memory during the eiecution of 
call ,to procedure CLEARSCREEN from line C in COMPINIT. The Pascal 
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interpreter occupies the lowest area in memory. In it is the system 
communications area(also called SYSCOM). wh ich is accessible both to 
assembly language routines in the interpreter and (as if it were part 
of the heap) to system routines coded in Pascal. It serves as an 
important communication link between these two levels of the system. 
The Pascal heap is next in the memory layout; it grows toward high 
memory. The single stack growing down from high memory is used for 3 
types of items: 1) temporary storage needed during expression 
evaluation; 2) a data segment containing local variables and 
parameters for each procedure activation; and 3) a code segment for 
each active segment procedure. (See figure 3. 3.6) 

Consider the status of operations just before COMPINIT is called 
in line B. Conceptually, there are six pseudo-variables which point 
to locations in memory: 

a STACK POINTER (SP): which points to the current top of the stack. 

a MARK STACK POINTER (MP ): which points to the "topmost" markstack 
in the stack. (remember that the the stack grows down!)* 

a SEGMENT(SEG) variable: which points to the base of the procedure 
dictionary for the currently active segment procedure. For example, 
just before COMPINIT is called. SEC points to the COMPILER segment's 
procedure dictionary. 

an INTERPRETER PROGRAM COUNTER ( IPC) : which contains the address of 
the next instruction to be executed in the code segment of the current 
procedure. 

a JTAB pointer: which points to the collection of procedure 
attributes and jump table entries in the body of the current procedure 
code section. 

and a NEW POINTER (IMP ): which points to the current top of the 
heap. 

When segment procedure COMPINIT is called in line B. its code 
segment (including all compiler initialization procedures) is loaded 
on the stack. The COMPINIT data segment is built on top of the stack. 
Figure 3.5.7 is a diagram of the data segment for COMPINIT. 
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high addresses 
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FIGURE 3. 3. 7. A DATA SEGMENT 

In the upper portion of the data segment* space is allocated for 
variables local to the new procedure. For examp lei COMPINIT 's data 
segment allocates space for integer variables I and J, as well as 
boolean BOOL. 

In the lower portion of the data segment is a "markstack". When 
a call to any procedure is made, the current values of the 
pseudo-variables, which characterize the operating environment of the 
calling procedure, are stored in the markstack of the cal led 
procedure. This is so that the pseudo-variables may be restored to 
pre-call conditions when control is returned to the calling procedure. 

For example, the call to COMPINIT causes conditions in COMPILER 
just before the call to be stored in COMPlNIT's markstack in the 
following manner: 



MarkStack DYNamic link (MSDYN) < — MP 
IPC(MSIPC) <— IC 
" H SEGment Pointer <MS<3EG> < — SEG 
" " Jump TABle (MSJTAB) < — JTAB 
" " Stack Pointer <SP) < — SP 
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In addition a Static Link field becomes a pointer to the data 
segment of the lexical parent of the called procedure. In particular! 
it points to the Static Link field of parent's markstack. After the 
building of the data segment new values for IC* SEG* SP# MP* JTAB* and 
NP *v established for the new procedure. 

When the call to CLEARSCREEN is made on line C. another data 
segment is added to the stack and again the pseudo-variables mv 
stored in the new markstack* as well as the appropriate Static Link* 
and updated. Note that now the 5EG no longer points to the COMPINIT 
procedure dictionary but to the Pascalsystem dictionary. 

No code segment for CLEARSCREEN is added to the stack before the 
data segment since the code for CLEARSCREEN is already present in 
segment Pascalsystem. Its invocation causes only a data segment to 
be added to the stack. When CLEARSCREEN and INIT mre completed* the 
COMPILER data segment will again be the top element on the stack. 

Figure 3.5.8 is a detailed diagram of the stack during execution of 
an instruction in CLEARSCREEN* including appropriate pointers for 
static* dynamic* etc. links of CLEARSCREEN 's markstack. Note where 
the pseudo-variables point in the stack. In particular* JTAB points 
inside CLEARSCREEN code section which is in the Pascalsystem code 
segment* IC points inside that CLEARSCREEN code* and SEG points to the 
base of the Pascalsystem code segment. 
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FIGURE 3.3.8. THE STACK DURING CLEARSCREEN 



Figure 3.5.9 illustrates a top-down process by showing the 
relationships among diagrams 2 through 7. 
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PROGRAM PASCALSYSTEM; 
VAR 

SYSCOM: SYSCOMREC; 

CH:CHAR» 

PROCEDURE CLEARSCREEN: FORWARD; 

SEGMENT PROCEDURE USERPROGRAM; 
BEGIN 

END; 
SEGMENT PROCEDURE COMPILER; 
VAR 

SY.OP: INTEGER; 

SYMCURSOR: INTEGER; 

PROCEDURE INSYMBOL; FORWARD; 

SEGMENT PROCEDURE COMPINIT; 
VAR 

I. J: INTEGER; 

BOOL: BOOLEAN; 
BEGIN 



I:-l; 

CLEARSCREEN; 

INSYMBOL; 



—LINE C 



END; 

PROCEDURE INSYMBOL; 
BEGIN . . . END; 

PROCEDURE BLOCK; 
BEGIN . . . END; 
BEGIN <*COMPILER*> 



COMPINIT; 
INSYMBOL; 

END; < ^COMPILER*) 



.INE B 



SEGMENT PROCEDURE EDITOR; 
BEGIN ... END; 

PROCEDURE CLEARSCREEN 
BEGIN 
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WRITE( ■ — 

END; 

BEGIN <-*PASCALSYSTEM*> 
REPEAT 

READ<CH); 
CASE CH OF 
C: COMPILER; 
E: EDITOR; 
^ U: USERPROGRAM 

END <* CASE #> 
UNTIL CH - 'H' 
END. 



— ); 



FIGURE 3. 5. 10. 



LINE A 



THE PROGRAM 



* BYTE-SWAPPINC * « Section 3. 6 * 

**»***♦****# *#*#» «**#**#«**»*#•# 

Version I. 5 September 1978 

Byte-swapping problems occur when code generated on one machine 
is transferred to another or programs which directly interface with 
memory (e.g. the Patch utility ) are written on or for one machine and 
transferred to another which has a different ordering for its memory. 

There mv two different ways to order bytes in a given memory: 

*> Byte Zero is the byte containing the least significant 

half of the word. Byte One contains the most significant 
half. 

B) Byte Zero is the byte containing the most significant 

half of the word. Byte Qne. contains the least significant 
half. 

The difference between these is the way Byte quantities arB 
T*a6 and stored in memory. Word quantities, such as integers, will be 
read and looked at in the same way on both types of machines. However* 
byte quantities such as P-code or characters will be reversed. 

An example: 

DEFINITION <A> CB> 

Is* met ms* Is* 



VALUE(Hex) ! 04 ! 07 ! ! 07 ! 04 ! 

BYTE 1 O 1 

(least/most significant biti thereby least/most significant byte ) 

If both of the bytes shown above were read as an integer » a 
word quantity, they would give the value 3,588. However* if the value 
of byte Zero was wanted (as in: C: PACKED ARPAYCO. .13 OF CHAR/ ) then 
Definition A would show a value of 04H and Definition B would show a 
value of 07H. Both definitions would show the value 07H if the most 
significant byte were specified. 

Byte-swapping is not a hard problem to solve* it just requires 
a little thought. The Patch utility has type declarations for both 
types of machines and a study of it should suffice to show how to 
satisfy your programming needs. 
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* THE CALCULATOR * 



ft-********* *.*«-*« 
* Section 4. 1 * 



Version 1.5 September 1978 

The prompt, '->' , expects a one line expression in algebraic 
form. Up to 23 different variables are available, each with different 
values assigned using the syntax of the gilven grammer. Only the first 8 
letters are used to distinguish between variables. Variables having a 
value may be used as constants. There ard two built-in variables- PI 
(3.141393) and E (2.718282). These values may be changed by the user. 

No distinction is made between upper and lower case letters. 

The MOD function is the backslash j*\': the PASCAL MOD function 
is used and the operands are rounded to bei integers. WARNING: Since 
this uses the PASCAL defn. of MOD ( see Jensen fc Wirths' Pascal User 
Manual and Report Second Edition page IOB) the results obtained may not 
be as expected. 

The operand of the factorial function 'FAC ' is also rounded to 
be an integer which must be between :ero and thirty-three inclusive or 
the expression will be rejected. 

The uparrow '"" is used for exponentiation. The operand must 
be positive or the expression will be rejected as e - s V LN ( X ) is 
used to calculate the answer. 

'LASTX' is a constant which is assigned the value of the 
previous correct expression by the calculator and may be used in the 
following expression instead of inserting |the same expression again. 

Angles for the TRIG functions must! be in RADIANS. Degree to 
Radian conversion is accomplished by RADaNclE « ( PI / 180 ) # DEGANGLE. 

This program will bomb on an execution error if an over or 
underflow occurs. If this happens all user assigned variables and their 
values will be lost. 

To leave the calculator mode simply type <RET> immediately 
following the prompt. 

EXAMPLE OF CALCULATOR SESSION: 

-> PI 

3. 141592 
-> LASTX 

3. 141592 
-> HALFPI * PI / 2 

1. 570796 
-> SIN ( HALFPI ) 

1.0 
->A«B»C«'D«F« ( FAC (3) / 2 ) 
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3. 





-> 


A 










3. 





-> 


C 










3. 





-> 


1 


+ 2 








3. 





-> 


3 


♦ 7/4 






4. 


73 


-> 


SORT (2*2+3*3) 






3. 


603331 
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•ft-******************** ****##*»*«*«-«.*« 
* LIBRARIAN UTILITY # ♦ Section 4. 2 • 

•ft******************* »**»#».***#*♦♦♦♦ 

Version I. 5 September 1978 

LIBRARY. CODE is a utility program that allows the user to link 
separately compiled PASCAL units and separately assembled subroutines 
into a LIBRARY file. It is based upon the original pre-I. 5 utility 
LINKER. CODE and operates in basically the same way. 

To add a segment to *SYSTEM. LIBRARY it is necessary to create a 
new file into which each segment that is wanted from the original 
♦SYSTEM. LIBRARY is first linked. It is then possible to add segments 
by linking from another code file into the new file being created. 

EXAMPLE 

Consider the case of adding a segment called TURTLE to the 
already existing file *SYSTEM. LIBRARY which is assumed to contain the 
segments PSGRAPHICS and MOVETO. 

On executing LIBRARY. CODEi the user is prompted for the name of 
the output codefile. For this example/ respond with the name 
NEW. LIBRARY. The program now asks for a 'Link Code File'. The 
response here is *SYSTEM. LIBRARY. The names of all segments currently 
linked into the input library, i.e. *SYSTEM. LIBRARY, as well as their 
length in bytes is now displayed. Currently there mtk a maximum of 16 
segments in any PASCAL program or LIBRARY. 



0- MOVETO 

1- PSGRAPHI 

2- 
3- 



2398 4- 

864 5- 

O 6- 

O 7- 






8 





9- 





io 





ii- 



lO- 
14- 
15- 



The following promptline appears: 

Segment # to link and <space>. NCew file. Q(uit. A(bort 

The user now enters the number of a segment within the link 
code file that is to be linked into the new library file, followed by 
<space>. Next, the number of the segment in the output file to be 
linked into (i.e. NEW. LIBRARY) is typed followed by <space>. For each 
segment linked the librarian reads that segment from the input file and 
writes it to the output file at the segment requested. It then 
displays the segment table for the current state of the output library 
file. In this example, respond with the following: 
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0<space> 

Seg to link into? 0<space> 

Kspace> 

Seg to linlk into? Kspace> 

When all needed segments have been linked a new input file it 
requested by typing - N ' for N(eui file ,] In this eiample, a separ.JelJ 

of ihJ* 5iC! Ik ; °?f , SCe section 3 ■*' UN I T S. On entering the name 
of this file the following display appears: 



O- 
1- 

2- 
3- 



O 4- 

5- 

O 6- 

7- 



8- 

9- 

1Q> 

11- 



The Unit TURTLE occurs in segme 



TURTLE 



O 
O 

230 
O 



10- 

11- 

14- 
15- 



nt 10 and is to be linked into 



segment 2 within MEW. LIBRARY. The user responds: 

10<space> 

Seg to link into? 2<space> 

The final display of the output library segment table is thus: 



0- MOVETO 239Q 4- 

1- PSGRAPHI 864 5- 

2- TURTLE 230 6- 

3- O 7- 






e- 





9- 





10- 





li- 






10- 





11- 





14- 





15- 



The output library codefile length is displayed and in this 
eiample is 16 (blocks long). 

Once the needed segments from ail input files have been linked 
in the user locks the output file by typing 'Q' followed by a return* 
(unless a copyright notice is desired wiithin the codefile) Type 'A' 
to abort the linking process. The old ^SYSTEM. LIBRARY should either be 
removed or its name changed if it resides upon the same disk and the 
name NEW. LIBRARY must be changed to *SYSTEM. LIBRARY in order to be 
used. 



NOTE j 

In response to the initial prompt "Output Code File ->" me 
could have just as easily said *SYSTEM. LIBRARY followed by another 
♦SYSTEM. LIBRARY in response to the prompt "Link Code File ->". 
However, in this case the original ♦SYSTEM. LIBRARY will be removed 
automatically upon completion of the linking process. 
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* SETUP - SYSTEM RECONFIGURATION ♦ # Section 4. 3 « 

Version 1.5 September 1978 

The UCSD Pascal Operating System keeps certain information 
• bout the user in a file called SYSTEM. MISC INFO. During each system 
initialization this file is read into memory, and from there it is 
accessed by many parts of the system/ particularly (if the user has a 
terminal suitable for it) by the screen oriented editor. 

Much of this information needs to be initially set up by the 
user to conform to his particular hardware configuration or his taste 
or convenience. Most of this information concerns the nature of his 
terminal and keyboard* although there 9Tt a few miscellaneous fields. 

SETUP is run like any other compiled Pascal program, by 
entering the Command level of the system, typing X for execute and 
typing the filename SETUP followed by a carriage return. 

SETUP: C(HANGE) T(EACH) HCELP) Q(UIT) 

If this does not happen it may be because the setup program is 
not on the disk. If so* the system will display the message 

no file setup. CODE 

If neither of the above happens, something is drastically, wrong. 
Contact UCSD. Assuming all is well, continue. 

All commands to the SETUP program are invoked by typing a 
single letter chosen from the promptline. 

SETUP: C(HANGE) T<EACH> HKELP) G(UIT> 

Type 'H' to find out what the commands at this level do. The 
program is self teaching, so the rest of this document explains the 
information SETUP was designed to change. 

SETUP does not tell the system how to do random access cursor 
addressing on the user's terminal (for those terminals which have this 
capability). To allow the system to use that feature, please refer to 
Section 4.7 of this document package. 

4. 3. 1 MISCELLANEOUS INFORMATION 

HAS CLOCK 

Values: TRUE, FALSE 

A real time doc* is available. A real time clock module, such 
as the DEC KW11, may be found on many processors. It is assumed to be a 
line frequency (60 cycle) clock. If available it is used by the PASCAL 
system to optimi2e disk directory updates. See section 2.1.6 TIME intrinsic. 
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HAS B510A 

Values: TRUE* FALSE 

The system is running on a Terak 8310a hardware configuration. 

4. 3. 2 GENERAL TERMINAL INFORMATION 

HAS SLOW TERMINAL 

Values: TRUE, FALSE. 

When this field is true* the system issues abbreviated 
promptlines and messages. 

Suggested setting: 600 baud and under — True* otherwise False. 

HAS RANDOM CURSOR ADDRESSING 

Values: TRUE, FALSE 

Only applies to video terminals. See Section 4.7 in order to 
allow the system to make use of this feature. 

HAS LOWER CASE 

Values: TRUE, FALSE 

SCREEN WIDTH 

The number of characters per line of a terminal. 

SCREEN HEIGHT 

The number of lines per display screen of a video terminal. 
Set to for a hard copy terminal or other terminal in which paging is 
not appropriate. 

NON-PRINTING CHARACTER 

Values: Any printing character. 

What should be displayed by the terminal to indicate the 
presence of a non-printing character. 

Recommended setting: ASCII "? M . 

VERTICAL MOVE DELAY 

The number of nulls to send after a vertical cursor move. Many 
types of terminals require a delay after certain cursor movements which 
enables the terminal to complete the movement before the next character 
is lent. This number of nulls will be sent after carriage returns. 
ERASE TO END OF LINE, ERASE TO END OF SCREEN and MOVE CURSOR UP. 

4. 3. 3 CONTROL KEY INFORMATION 

The user may choose which control keys suit his particular 
keyboard arrangement and his taste. 

Some keyboards generate two codes when some single key is 
pressed. If that is the case for any of the keys mentioned here, it 
must be noted in the field PREFIXED C<f ieldname>3 which has either the 
value TRUE or the value FALSE. The prefix for all such keys must be 
the same and must be noted in the field LEAD-IN FROM KEYBOARD. This 
feature may also be used to access control functions with two- 
character sequences if a user's keyboard is unable to generate many 
control characters. As an example, suppose the user's keyboard had a 
vector pad which generated the value pairs ESC "U H . ESC M D H . ESC "L" 
and ESC M R" for the keys for Uparrow, Downarrow, Leftarrow and 
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Rightarrow, respectively. Assume alto that all other keys on the 
keyboard generate only single codes. Then the user would give the 
following fields the following values: 

KEY FOR MDVING CURSOR UP ASCII "U" 

KEY FOR MOVING CURSOR DOWN ASCII "D" 

KEY FOR MOVING CURSOR LEFT ASCII "L" 

KEY FOR MOVING CURSOR RIGHT A e CII «R" 

LEAD-IN KEY FOR KEYEDARD ESC 

PREFIXEDCKEY FOR MOVING CURSOR UP 2 TRUE 

PREFIXEDCKEY FOR MOVING CURSOR DOWN3 TRUE 

PREFIXEDCKEY FOR MOVING CURSOR LEFT] TRUE 

PREFIXEDCKEY FOR MOVING CURSOR RIGHT3 TRUE 

KEY FOR STOP 

Console output stop character. The STOP character is a toggle; 
when pressed, the key will cause output to the file 'OUTPUT' to cease 
When the key is depressed again, the write to file 'OUTPUT' will resume 
where it left off. Th:ls function is very useful for reading data which 
is being displayed faster 'than one can read. 

Suggested setting: ASCII DC3 

KEY FOR FLUSH 

Console output cancel character. Similar in concept and usage 
to the STOP key, the FLUSH key will cause output to the file 'OUTPUT' 
to go undisplayed until FLUSH is pressed again or the system writes to 
file 'KEYBOARD'. Note that, unlike the STOP key, processing continues 
uninterrupted while output goes undisplayed. 

Suggested setting: ASCII ACK 

KEY FOR BREAK 

Typing the character BREAK will cause the program currently 
executing to be terminated with a run-time error immediately. 

Suggested setting: Something difficult to hit accidentally. 

KEY TO END FILE 

Console end of file character. When reading from the files 
KEYBOARD or INPUT or the unit 'CONSOLE: ', this key sets the Boolean 
function EOF to TRUE. See section 2.2.4 EOF intrinsic. 

Suggested setting: ASCII ETX 

KEY TO DELETE CHARACTER 

Each time you press this key one character is removed from the 
current line, until nothing is left on that line. 

Suggested setting: ASCII BS 

KEY TO DELETE LINE 

Depressing LINE DELETE will cause the current line of input to 
be erased. 

Suggested setting: ASCII DEL 
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The rest of this section contains information 
only of interest to users who art using video 
display terminals with a selective erase 
capability and may be safely ignored by users 
having any other kind of terminal, such as 
hardcopy terminals or storage tube terminals. 

KEY TQ MOVE CURSOR UP 
KEY TO MOVE CURSOR DOWN 
KEY TO MOVE CURSOR LEFT 
KEY TO MOVE CURSOR R][OHT 

Th€ " k *y* * r » u*«d by the screen oriented editor to control 
the basic motions of the cursor. If the keyboard has a vector pad. set 
these fields to the values it generates, otherwise, we suggest 
choosing 4 keys in the pattern of a vector pad and use the control 
codes which correspond to them, for example the keys '0'. '. '. 'K' and 

i ' on most keyboards encircle an imaginary vector pad. You may wish 
to use a prefix character before such keys as described above. 

EDITOR "ESCAPE" KEY 

The key which, in the system screen oriented editor, is to be 
used to escape from commands, reversing any action taken. 

Suggested setting: ASCII ESC 

EDITOR "ACCEPT- KEY 

The key which, in the system screen oriented editor, is to be 
used to accept commands, making permanent any action taken. 

Suggested setting: ASCII ETX 

4. 3. 4 VIDEO SCREEN CONTROL CHARACTERS 

This section describes the characters which, went sent to the 
terminal by the computer, controls the terminals actions. Yoou should 
consult the manual for your terminal to find the appropriate values. 
If a terminal does not have one of these characters, the field should 
be set to O unless otherwise directed. 

. .. , Some * cr «« n * require a two character sequence to exercise some 
of their functions. If the first character in all of these sequences 
is the same, it can be set as the value of the field LEAD-IN TO SCREEN 
and for each <fieldname> which requires that prefix, the user must set 
the field PREFIXC^f ieldname>3 to TRUE. For example, suppose ERASE TO 
END OF LINE and ERASE TO END OF SCREEN were respectively performed by 
the sequences ESC "L" and ESC "S" but all the other screen controls 
were single characters. The user would then set the following fields 
to the following values: 

LEAD-IN TO SCREEN ASCII ESC 

ERASE TO END OF LINE ASCII "L" 

ERASE TO END OF SCREEN ASCII "S" 

PREFIXEDCERASE TO END OF SCREEN! TRUE 
PREFIXEDCERASE TO END OF LINE3 TRUE 
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ERASE TO END OF SCREEN 

The character which erases the screen from the current cursor 
position to the end of the screen. 

ERASE TO END OF LINE 

The character which* when sent to the screen, erases all 
characters from the current cursor position to the end of the line the 
cursor is on. 

ERASE LINE 

The character which* when sent to the screen* erases all the 
characters on the line the cursor is currently on. 

ERASE SCREEN 

The character which* when sent to the screen* erases the entire 
screen. 

BACKSPACE 

The character which* when sent to the screen* causes the cursor 
to move space to the left. 

MOVE CURSOR HOME 

The character which moves your cursor to the upper left of the 
current page. IMPORTANT: If your terminal does not have such a 
character, set this field to CARRIAGE RETURN, ASCII mnemonic CR. 

MOVE CURSOR UP 
MOVE CURSOR LEFT 

The characters which move your cursor non— destructively one 
space in those directions. 
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* BOOTSTRAP COPIER * *JSection 4. 4 # 

#***#*##****♦*♦**#*# *************** 

Version 1.3 September 197B 
The bootstrap copier BOOTER, CODE as irs for the unitnumber of the 
volume on which to write the bootstrap. Refer to Table 5 for a list of 
volume numbers. It will then ask for a file name to write as the 
bootstrap. It writes the first two blocks of that file, so in order to 
copy the bootstrap from an existing disk, give it the diskname, and it 
will copy the bootstrap from the disk na^e-d to the unit numbered. 

To execute the EOOTER program, type X BOOTER to Command level 
(assuming that there a copy of BOOTER. COfiE on the disk). 
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♦*»##«»** #*»«***«4****«* 
* PATCH * * Section 4. 5 * 
**#♦♦♦*♦# *************** 

Version I. 3 September 1978 

On X(ecoting PATCH, the promptline is 

CConsole, PCatchwrite, UChdlewrite, GCuit 

The options available mtk: 
Working with, and altering the file in the CConsole mode. 
Dumping the file in a Hex, Decimal, Octal, or ASCII format, in the 
PCatchwrite mode. 

Dumping/concatenating and/or moving blocks in files with the 
MCholewri te mode. 
Leaving PATCH with the Q<uit command. 

In the C<onsoie mode, the promptline changes with each command. 
The promptlxne always reflects the commands available at any given 
time, and no more. The full promptline is: 

Patch: R<ead, Stave, H(ex, MCixed, fcCet, Q(uit Enn3 

The number in square brackets at the end of the prompt is the current 
block being patched. The first command to use is CCet. ©(et will 
prompt 

Filename: <cr for unit i/o> 

Respond to this prompt with the name of the file to be 
patched. If the disk/device has no directory, or has some problem with 
the directory, reference it by its Pascal unitnumber. Type a carriage 
return to this prompt, and the prompt is: 

Unitnum to patch C4, 5, 9. . 123 (0 will Quit) 

Having typed a successful entry to one of the two above prompts, the 
prompt will now be extended by the RCead command. R(ead will read up a 
block from the file/unit. The prompt on entering R(ead command is 

BLOCK: 

Respond with a block number in the file/unit specified. There 
is no range checking provided on this read, so exercise care in the 
number typed. The promptline isnow extended with H(ex, MCixed and 
the block number in square brackets, H(ex and M(ixed display the 
block read. Using the HCex command displays the block entirely in 
hexadecimal characters, using the MCixed command will display printing 
ASCII characters where possible, and hexadecimal values elsewhere. The 
promptline is: 



Page 229 



Alter: pad vector 1.9.3.0-0. .F hex characters. S<tuff, Q(uit 

The vector keys on the terminal causes the cursor to move 
around in the data/ notice that there the cursor will remain only on 
the data, and will not move off the data. Typing a hexadecimal 
character changes the character the cursor is over provided that only 
one or more of the data positions is changed, when Q(uitting from Alter 
mode, the Patch promptline will be extended with the S(ave command. 
Typing S(ave writes the changed data back to from where it was read. 
In the Alter mode, there is one optional command: S(tuff. Typing the 
8<tuff command displays the promptline: 

Stuff for how many bytes: 

Key a number from to 512. Type carriage return to cause 
patch to accept the number, the promptline changes to: 

Fill with what hex pair: 

Key a byte value in hexadecimal. The data reappears on the 
screen, with the number of bytes specified, from the position of the 
cursor filled with the data value specified, to the hex pair prompt. 

Using the Patchwrite command causes a full screen prompt to 
appear: 



This procedure writes out sequential blocks to any file as a patch 
dump. Type the prefix character of the option to be changed. Tupe 'P ' 
to PRINT. 'Q' to QUIT. 

A( Input File 

B( Begin Block # 

C( Num. of Blocks 

E( Output File 

0( Hexadecimal 

H( ASCII 

I< Decimal 

J( Octal 

K( Decimal Bytes 

L( Octal Bytes 

M( Krunch 

N( Double Space 
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Following each of tht fields is the current value of that 
field. Typing the character in front of the field places the cursor 
after the field, and removes the Current value. Typing 'Y' or *T ' sets 
a boolean value to True, any othef character sets the field to False. 
The Input File and Output File fields require a filename to be typed 
followed by carriage return. The integer fields (Begin Block, and Num. 
of Blocks) require a number to be typed followed by carria^t return or 
space. Any other character sets the value of the field to some 
unspecified value. 

The other options at the Patchwrite level art Print and Quit. 
Both cause Patch to return to the outer level. Quit does it straight 
away. Print dumps out: the file in the requested format on the way. The 
options available for the dump need to be selected, the default is 
none. The options Krunch and Double Space affect the formatting of the 
output. Krunch, when true, removes blank lines between logical output 
lines. Double Space when true, double spaces all output. 

Using the W(holewrite command causes the full page prompt: 



This procedure writes any number of blocks from an existing file 
to a new file, unchanged. Simply specify the necessary parameters 
Type 'P' to PUT, 'G' to QUIT 



Knput File 
S(tart Block 
N(umber of Blcks 

CKutput File 



The protocol for changing the fields at this level is the same 
as that for the Patchwrite level. The Wholewrite level is that which 
allows one to mix/match and mingle files. Put and Quit both cause 
Patch to return to the outer level, Put writes to the file on its way, 
Quit does not. 

Notice that the Patchwrite and Wholewrite levels remember their 
vital parameters across sessions (while remaining in Patch). The 
Console level will clear all memory of the session. The Patchwrite 
level paginates its output, after each block written, a form-feed is 
generated. (Specifically PAGE(OUTPUTFILE) ). 
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♦ft************************ 
♦ RT11 to PASCAL CON^ERSI 



ON KIT * * Section 4. 6 • 



The utility 
RT-11 disks. It ass 
blocks 6-7. When th 
Pascal system unitnu 
the directory. Once 
RTUTOEDIT reads eac 
UNITREAD intrinsic t 
the usual manner. I 
directory. For each 
sixe of the file in 
(In base 10). All u 
will be prompted for 
finally a mode of tr 



file labele 


umes the pr 


e file is e 


mber of the 


a legal on 


h entry on 


o read the 


t lists on 


entry it s 


b locks/ and 


nused porti 


an RT-ll f 


ansf er. 



Version I. 5 September 1978 



d RT11T0EDIT is intended for use with 
esience of an RT-ll directory spanning 
xeicutedj it asks the user to specify the 

Volume of which the user wants to view 
-line unit has been specified, 
blocks J6-7. The program uses the 
directory and does not open the file in 
the screen the entire contents of the 
pecifiejs t;he file title, file kind* the 

the starting block location of the file 
ons are! identified as such. The user 
ile name, a Pascal system file name, and 
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* GOTOXY BUNDER # # Section 4. 7 ♦ 

i 
Version 1.5 September 1978 



disk, 
cr 



PASCAL on the default P(refix 
procedure which must be 
once) in order to make the 
reen. 



This program alters the SYSTEM, 
sk. It prompts for 'locil GOTOXY', a 
eated and bound into the system (only 
system communicate correctly with the sc 

Look at the file GfiTOXY. TEXT on the release disk. This file 
contains a few procedures for doing GOTOXY cursor addressing on a few 
different CRT-type terminals. If the procedure needed is one of those. 
«?J™ ** from commen1:s ' cbmment out any others, recompile it. and run 
BINDER on it. BINDER is a | self-instructing program. 

.. If th * GOTOXY cursor-addressing scheme for the terminal is not 
there, create one. The procedure may not be named GOTOXY because 
this identifier is predeclared at the "*u-* level of compilation 



Possible error: 

Nil memory reference at 
compile time 

Value range error when executing 
BINDER 



Fix- 
Remove the program heading 
and try again 

(*»U-«) should be the first 
thing in the GOTOXY file 



Assumptions: 

1. > A screen terminal 

2. > A PASCAL system 

3.) The upper left-hand corner of the screen is X«0. Y»0. 
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- Notes - 



PROCEDURE FGOT0XV[X f V: INTEGER I 
BEGIN 

IF X < THEN X 
• IF X>79 THEN X 

IF / < THEN V 



IF Y>Z3 THEN V 



0; 
79; 
Of 
23; 



«w^e(CHR(27)/y\CHR(y+32),CHR{X+3ZJ) 
EM; 

BEGIW (* Vunmy meUn block m ) 
ENV. 



[*ThU AouuUnz should wonk £o/i tht VEC VT-52*) 



PROGRAM PASCALSYSTEM; 
(«GOlTCXY for SCRCC I012C) 
PROCEDURE IC120XY(X,Y:INTEGER); 
VARP: PACKED ARRAY[0..33 CF CHAR; 
BEGIN' 

IF Y>23 THEN Y:=23; 

IF X>79 THEN X:=79; 

it Y<0 THEN Y:=0; 

IF 1 X<C THEK X:=0; 

p(0]:=CHR(27); 

ptn: = '=*; 

p{2l:=Cl!R(Y+3?); 
P(3]:=CHR(X+32); 
UNITVRITE(2,P,C); 

ENDi 
BEGIN END. 



Fciji* 2 3ii 



****** 9-^-j.h.h, * v .^ 
* DUPLICATE D1H 



ECTCRY UTILITIES * * Section 4 8* 



Versioii I. 5 



COPYpypSUR 



This program will c 
directory location If the 
directory the program will 



September 1978 



py! the duplicate directory into the primary 
isk is net currently maintaining a current 
ell you &o. 



cnpvnnpnTo n. ^° use * h ** program e(x)ecute 

' . "„! !L^.ti \r° J^ Ilc "» "Sector,, i, f0U nd it will tell 
it ■»?!. Lt ln Ji" tD the five unit. If the duplic.te i. found then 
HAW"* X°%\'j™.™k'»™ t t0 'U*«. «. director, in 

the program. 



will execute the copy any other character will abort 



MARKDUPDIR 

This 
a- duplicate d 
sure that bio 
arrainge the 
available by 
fee where the 
the first fil 
at the top. t 
file starts a 
of the direct 



program 
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-files as 
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t block 
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ory then 
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and 
he di 



SYSTEM, PASC 



rk o disk that is currently not maintaining 
t it will. Caution must be exersiced to be 
e for use. If they are not one must re- 
e them free. One can tell if there 
ended listing in the Filer and checking to 
rts. If the first file starts at block 6 or 
ck 10 but there is a 4 block unused section 
5 not been marked. If however, the first 
there is no unused blocks at the beginning 
sk has been marked. 



AL 



31 30-Aug-78 



Codefile 



<unusod> 
SYSTEM. PASCAL 



OR 



4 
31 



30-Aug-78 



6 
10 



Codefile 



Both of the; above cases indicate disks that have not been 
marked. I3elpu is the directory of a properly marked disk. 



SYSTEM. PASCAL 



31 30-Aug-78 



10 



Codefile 
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«v To ti»cut» this program e<X)ecute MARKDUPDIR. The program will 
ask you which unit contain, the disk to ?• marked (4 or 5) ?hl 
program will check to see if it thinks that the blocks 6-9 are free If 

il! «I Typin9 B Y w111 e *«cute the mark, any other character will abort 
dupl^ S t.Tir^to%T ^^ the tPa " ^ '*" bef ° r - ■"""■ " - • 
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***********+*♦******«*♦♦ ***#**♦**♦***** 

* P-CODE DISASSEMBLER ♦ # Section 4 9 * 
********#*»***#*#*♦***.*« ♦•W **#*******»» 

Version 1.5 September 1978 

improvement! r+ h frequency, etc. as an aid in making architecture 

intercreteri J^-V 1 "" *"" ,found helpfyl in "*^9fling 
i«#™I!J optimizing programs, and provides a source of further 

In other Cords ^h^ ""^ •« -.ftte- as opposed to -dynamic-, 
the code fUe insteld 1* ^ *I! collect * d N making a pass through 
ectuaUy running ° f C ° U * Ctin * them u»hi le the code file is 

4. 9. 1 DISASSEMBLY 

the UCSD T pI e ?i? a ? Semb } er in f Ut * a COde fS1 * that h »* *>**" generated by 

disa.^mblj ° * h ° St Wil1 neV8r be inclw0 *« i" the * 

the fil. T SpCQDrs S rr^T ** l™ "** b « ^ecuting DISASM. 15 and require. 
lil«l «!« r °? ES - I5 to l>e on the system disk. The Disassembler will 
first prompt for an input code file, the suffix .CODE beinrilsumed *nd 

larJinl th eqUi r ed x,/ he ""' ^* sti ™ refers to the byte II* If til 
•achine the code file is intended to run on, that is whether the fir.t 
physical byte (byte O) of a machine word is the most significant bull 
of the word. For more information, see section 3.6 BYTE-SWAPPING For 

pi ^ ic C aTbyteVrs PP ?he te ?' "T'i ^ W ' 11 *"' *** BC^a^lie^ ' *" 
pnysicai byte O is the least significant byte. Next the oromot u jn k. 

for an output file for the disassembled ou?put. line! the Utlut All 

is untyped, CONSOLE: or the PRINTER: (if it is on-Une) mau oTuI.I in 

preference to any other file. The final question at this staoe II 

whether the user wishes to take control of the dislssemblyf VI lecid. 

which^procedures are disassembled as opposed to all He procedure!""' 

ref.^.nrI«\!° nOU,i ?? *»' stio " regards the collection of statistics on 

lltill 11 V P^ticular Procedure's data segment. Should you 
!! if -.7 contro1 the disassembly you will be warned that all 
statistics gathered are only gathered on those procedures which mr 9 
disassembled. Next you will be taken into the Segment Guide Mil 
level display! the segments you have by name and lets you decide on 
which one you are interested in. The Procedure Guide follow"! lit 
you decide on the particular procedure(s) that you wish to 

filll!!^ !' J? Pinfl aT> " L " -t thlS point uiU li£t the Procedure(s) 
contained in this segment. A more complete description of this Itlp 
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tuo^nn JS..*?* ;^ t a «» c tion. TJ». Segment Quid, may b. re-entered bu 

typing "Q N in the Procedure Quid* Th..« <_ *.*.*. «n*»rea oy 

ditj^.mhi. - • wu««ur» wuiae. Thus in this manner you mau 

«qm y »"wre I'll*. The Segment Guide it tilted by typing 



( 1 


1 1:D 





( 2 


1 1:D 


1 


J 3 


I 1:0 


3 


I 4 : 


I 1:0 


4 


i 5 : 


L 1:0 


5 


1 6 3 


L 1:C 





J 7 3 


I 1:C 





I 8 1 


t 1:C 


9 


» 9 1 


I 1:C 


a 


ilO ] 


1:C 


8 


HI 1 


1:C 


13 


112 1 


1:C 


74 


J 13 1 


1:C 


77 



<**L CONSOLE:*) 
PROGRAM DISASMDEMO; 
VAR I: INTEGER; 

TOMORROW: BOOLEAN; 
COMMENT: STRING* 
BEGIN 
I:-0; 

TOMORROW: -FALSE; 
REPEAT 
I.-I+l; 

WRITELN( 'Disassembly 
UNTIL TOMORROW,- 



— a step backwards. 



'); 



FIGURE 1 SAMPLE PASCAL PROGRAM 



BLOCK « 1 
SEGMENT PROC OFFSET* 
0(000) 
2(002) 
3(003) 
3(005) 
6(006) 
8(008) 
9(009) 
10(00A) 
ll(OOB) 
13(000) 
16(010) 



60(030 
61 C03D) 
64 < 040 ) 
66 < 042) 
69<[045) 
72 « 048) 
74C04A) 
75C04B) 
77<04D) 



OFFSET IN BLOCK- 



BPT 

SLDC 

SRO 

SLDC 

SRO 

SLDO 

SLDC 

AD I 

SRO 

LOD 

LCA 

SLDC 

CXP 

CSP 

LOD 

CXP 

CSP 

SLDO 

FJP 

RBP 



7 


3 

4 

3 
1 

3 

1 3 
42 'Disassembly 



O 

WRITfcSTR 
IOCHECK 

1 
WRITELN 
IOCHECK 

4 

8 

O 



HEX CODE 
D307 
00 
AB03 
00 

AB04 
EA 
01 
82 
AB03 
B60103 
"~ * step backwards. 

00 

CD0013 

9E00 

B60103 

CD0016 

9E00 

EB 

A1F6 

C100 



FIGURE 2 SAMPLE PROGRAM DISASSEMBLED 
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*..„< F i9ur« 1 displays a sample Pascal program that has bean lict.d 

J?Ii n !.n:Xti: t i 0n ; h Fi9 ° re 2 di *^* the%iSessembl!d c^ JJl*' - 

crr.n«n , .J U ^ h# com P ile *- T h« l«*t 3 columns in figure 2 

correspond to the 3 columns to the right of the line number in figure 

«;«rl2 V ••fl«»nt number, procedure number, and offset within 

Sir! Jh respectivel V- The offset is also given in hex in 

in slrtlnn^ / c ™P let * description of UCSD P-Code mneumonic. i. given 

rnLl^V Sk*" 10 " Column ' The Parameter, to CXP's and CS?'s Ire 

fSn^n t SpT™^ OCedUre name if " is * k " ow » •«"•« procedure or 
function. WRITESTR, WRITELN, and IDCHECK are some examples The 

wi^ffs^ *Z LCA J* PrintCd " * Stri "8 " .vid^elby III line 
from 2hl It-it' a *? P * ' th * ir °P*™" d <*> converted to an offset 
from the start of the procedure so that the offset may act as a label 
Thus the 8 -displayed in the operand field of the FJP at offset 75 
really means a jump to the SLDO at offset 8. This is also tru. Il r*«. 
jump. (XJP's). The block number and byte offset of the lUtt of Ll 
procedure are given relative to the sLrt or the of rtul im. 
procedure starts at block l, offset O of thj code , The foment 
dictionary resides in block O for all code files ••»•••* 



4.9.2 



DATA SEGMENT REFERENCE STATISTICS 



. e n .I hC fourth Prompt the Disassembler provides is a question 
asking f you would like to keep track of all reference! to 2 

Jtltlst cs xTir^V^ S09m * nt ThC "*•* —nut. of these 
statistics is in optimization of a given procedure's code file Bu 

ir;tir:;ih?n the H°: der of deciera **•"•* Wi..!.. SnSii/SJ:^. th. 

^ i! A 11 segment that applies tp * given variable. For 
p-machine architecture reasons the first 16 words offset into thai*** 

from 17 to 127 result an instructions as least 2 bytes long, while 
references to greater than 127 require at least 3 bytes lu mafcino the 
•o.t frequently used variables have the smaller of f sets' on. maj "Iv. 
considerable code file space and possibly time durinj ..•eltTJn. 

Data Segment size: 45 Data references: 3 |_e» level 

For segment DISASMDE Procedure # 1 

Offset(word) Total % 

3 3 60. 00 

4 2 40. 00 



FIGURE 3 SAMPLE PROGRAM'S DATA SEGMENT STATISTICS 
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o^n«^ m figure 3 • Jow. the data segment statistics for our sample 

JmaM ?; o -ril*r X !J # " 1S littU t0 b# 9-in ' d fro «" optimixingMch a 
Jh. in!!!? ! m * u * 4 the 9»ntral idea can still be presented. By using 

iiMZ?!"!! li8 ! in9 Sh ° Wn in flflor# l on * «n match offset, to " 



variables as such 

variable offset 



I 



3 



TOMORROW 4 

COMMENT a 

or th. JlllA? U r inS th€ fiflUre * in figure 3 one can see that offset 3 
!!.?*! J?J e X occurs most frequently and thus deserves it's 
Sub!!! "', , ** " m * idea caTri « d out on a large program may result in 

i* not in* u^V a :J n9 V N ° tiCe that •">•* 6 ""•"• occu " «"* **« 
is not included in the statistics in figure 3. 

,.*«..,. ^ Th I/ r ° mpt t f 0r th * out P ut *"• for these statistics occurs 
after the disassembly has been completed. If you elect to collect 
these statistics you will be taken into the Segment and Procedure 
™S!I/\f" CT } # f. ln th * P reviou * action except that the prompt 
III!! I! ! fl ! ctlon of * dat * "fluent on which to collect 
lt*r 1 tics - X " th * Procedure Guide, »L" gives a listing of all the 
procedures in the selected segment by number, lex level, and data 
•egment size. After the selection of a data segment, processing 
continues, as described in the previous section, from the point after 
the data segment question. 

4.9.3 OPCODE, PROCEDURE CALL, AND JUMP STATISTICS 

—.n* I h# * e J***!** 1 " * r * coll8ctfld *« f n «id in optimizing the 
architecture of P-Code and although they are interesting to look at 
they are of no real use to the typical user. For this reason they will 
be described only superficially. 

Each opcode is given with a complete breakdown of which bit was 
fflost significant for each operand on any given occurrence of the 
opcode. These are presented in terms of totals and percentages of the 
number of occurrences of the opcode. in addition a histogram of the 
opcode occurrence as a percentage of the total number of opcodes 
disassembled runs along the righthand margin. There is also a table of 
jumps in terms of the number of bits required to represent the distance 
of the jump for both positive and negative jumps. Finally there *tk 
counts of all procedure calls listed by segment and procedure number 
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• LIBRARY MAP UTILITY * # Section 4. 10 # 

******♦**»**##**«##**♦# #»* # 4 ########### 

Version I. S September 1978 

-« rf ,4 *. Th ! P r f8 raffi LIBMAP produces a map of a library (or code) file 
file linker information maintained for each segment of the 

i4 u 111! pro9raffi fir!tt Prompts for a library file name. As in the 

IV ?!' , m * y be * n " Bter **k to indicate •**SYSTEM. LIBRARY". Unlike 

1 lmli*\ !*!« JrTr; !*! HC0DE " « uf<:i * «*« >• supres.ed by appending 
a period to the full file name. 

Example 

t «P in fl references file 

* *SYSTEM. LIBRARY 

FARKLE . FARKLE. CODE 

OLD. LIBRARY. : OLD. LIBRARY 

Typically, the map utility will be used to list library 
definitions but the option is available to include intra-library symbol 
references. Should this feature be desired, type a "Y M when queried 
for a reference list. A space (or carriage return) is considered a 
N . 

The user is now prompted for an output file name. (".TEXT" 

will be appended unless an extra period is used. > Several libraries 

may be mapped at the same time. To quit, type a carriage return when 
prompted for any file name. 

A sample map follows 

LIBRARY MAP FOR *SYSTEM. LIBRARY 

S * 0: MOVETO separate procedure segment 

PSMATP public ref 

PSYPOS public ref 

MOVETO separate proc P #1 

PSXPOS public ref 

GMOVETO global addr P #1, I #0 

PSBUFP public ref 

JUNK private r9f 

DRWLIN global ref 

PSYPOS public ref (2 times) 

LINETO separate proc P #2 

PSXPOS public ref (2 times) 

GMOVETO global ref 

CLINETO global addr P #2, I #0 
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DRAWLINE separate proc P #3 

DRWLIN global addr p #3, I #0 

PSMATP public ref <2 times) 

CONCAT separate proc P #4 

S • 1: PSGRAPHI library unit 

XRQT constant v*lue of 

MAXSTK constant value of 7 

MATSTK private ref <10 times) 

MOVETO external proc P #8 

LINETO external proc P #9 

CONCAT external proc P #12 

YROT constant value of 1 

ZROT constant value of 2 

PSXPOS public ref 

PSMATP public ref (7 times) 

.PSYPOS public ref 

PSBUFP public ref (7 times) 

STKINX private ref (8 times) 

BUF1 private ref (4 times) 

BUF2 private ref (2 times) 

S « 2: VPGRAPHI library unit 

NONE constant value of 
REVERSE constant value of 3 
SCREEN private ref (3 times) 
SCALE private ref (8 times) 
XCENTER private ref (2 times) 
YCENTER private ref <2 times) 
XCURR private ref (7 times) 
YCURR private ref <7 times) 
WHITE constant value of 5 
BLACK constant value of 6 
XHIVALUE private ref (4 times) 
YHIVALUE private ref (4 times) 
XLOVALUE private ref (5 times) 
YLOVALUE private ref (3 times) 
DRAW constant value of 1 
POINT constant value of 4 
ERASE constant value of 2 
DRAWLINE external proc P #8 
X SCREEN constant value of 320 
XSCALE private ref (3 times) 
XSHIFT private ref <2 times) 
YSCREEN constant value of 240 
YSCALE private ref (3 times) 
YSHIFT private ref (2 times) 

S « 3: TURTLE library unit 

NONE constant value of 

WHITE constant vlue of 1 

REVERSE constant value of 3 

HEADINC private ref (15 times) 

WANTCURS private ref (13 times) 
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SCALE private ref (8 times) 
SCREEN private ref C3 times) 
XCENTER private ref (2 times) 
YCENTER private ref (2 times) 
XCURR private ref (6 times) 
YCURR private ref (6 times) 
TOPEN private ref (4 times) 
BLACK constant value of 2 
XHIVALUE private ref (4 times) 
YHIVALUE private ref (4 times) 
XLDVALUE private ref <5 times) 
YLOVALUE private ref (5 times) 
XSCREEN constant value of 320 
XSCALE private ref (3 times) 
DRAWLINE external proc P #10 
XSHIFT private ref <2 times) 
YSCREEN constant value of 240 
YSCALE private ref (3 t^mes) 
YSH1PT private ref (2 times) 

S # 4: to S #15: stb unused 
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»»*♦*♦**♦#* ******#*#**********« 
* TABLE 1 ♦ # EXECUTION ERRORS * 

*♦*♦***♦♦## #**#*#**#*****♦****# 

Version I. 5 September 1978 

System error FATAL 

1 Invalid index* value out of range (XINVNDX) 

2 No segment, bad code file (XNOPR0C) 

3 Procedure not present at exit time (XNOEXIT) 

4 Stack, overflow (XSTKOVR) 

5 Integer overflow (X1NTOVR) 

6 Divide by zero (XDIVZER) 

7 Invalid memory reference <bus timed out> (XBADMEM) 
B User break (XUBREAK) 

9 System I/O error (XSYIOER) FATAL 

10 User I/O error (XUIOERR) 

11 Unimplemented instruction (XNOTIJIP) 

12 Floating point math error (XFPIE^R) 

13 String too long (XS2L0NQ) 

14 Haiti Breakpoint (without debugger in core) (XHLTBPT) 

15 Bad Block 



All fatal errors either cause the system to rebootstrap* or if 
the error was totally lethal to the system* the user will have to 
reboot. All errors cause the system to reinitialize itself (call 
system procedure INITIALIZE). 
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• TABLE 2 # * IORESULTS * 

************ *******4§.«. # «. # 



Version I. 5 Septemb^f 197B 




1 

2 
3 
4 
9 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 



No error 

Bad Block. Parity trror (CRfc) 

Bad Unit Number 

Bad Mode* Illegal operation 

Undefined hardware error 

Lost unit, Unit is no longetj on-line 

Lost file. File is no longer in directory 

Bad Title. Illegal file name 

No room, insufficient space 

No unit. No such volume on line 

No file. No such file on volume 

Duplicate file 

Not closed, attempt to open an open file 

Not open, attempt to access a closed file 

Bad format. error in reading real or integer 

Ring buffer overflow 
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*********** ***#*-*«*«.**«.#»« 

* TABLE 3 * * UNITNUMBERS * 
*********** *************** 

Version I. 5 September 1978 
NUMBER VOLUME NAME 






<empty> 




1 


CONSOLE 




2 


SYSTERM 




3 


GRAPHIC 




4 


f loppyO 




',5 


f loppyl 




6 


PRINTER 




7 


available 


- Cunimp lemented> 


13 


REMOTE 


•Creserved for f 


9 


blockl 




10 


block2 




11 


block3 




12 


block4 





Devices 9-12 are block-structured devices* in most cases (RK-05) 
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DRAWL I NE: 



# TABLE A * * PENSTATES | « 

*********** *«***«-*****4* 
Version I. 5 September 1*978 



PENUP (picture will not change) 

1 PENDOWN (force bite on) 

2 ERASER (force bits off) 

3 COMPLEMENT (XOR bite) 

4 RADAR (scan for obstacle) 



DRAWBLOCK: 

1 

2 
3 



OR Cpaint source onto de»tination> 
COPY <source goes to destination} 
COMPLEMENT Cinverted source goes to destination> 
EXCLUSIVE-OR <source ex^lusive-or destination goes 
to decination> 
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• TABLE 5 ♦ 



* SYNTAX ERRORS IN UCSD PASCAL ♦ 



**»**■*#*♦*•* **«**#****** ft******************** 



Version I. 5 September 197B 

i 

The syntax errors this compiler jjives arm not the best it can 

o so# [the error generation of the 



do. When time comes available to d. «„, , „.. 
compiler is going to be seriously re-vamped 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

IB 

19 

20 

21 

22 

23 

24 



Error in simple type 

Identifier expected 

'PROGRAM' expected 

' ) ' expected 

': ' expected 

Illegal symbol 

Error in parameter list 

'OF' expected 

' ( ' expected 

Error in type 

'C expected 

'3' expected 

'END' expected 

*i ' expected 

Integer expected 

'«' expected 

'BEGIN' expected 

Error in declaration part 

error in <f ield-list> 

'. ' expected 

'*' expected 

'Interface' expected 

'Implementation' expected 

'Unit' expected 



90: Error in constant 

51: ': ■*' expected 

52: 'THEN' expected 

53: 'UNTIL' expected 

54: 'DO' expected 

55: 'TO' or 'DOWNTO' expected in for statement 

56: 'IF' expected 

57: 'FILE' expected 

58: Error in <factor> (bad expression) 

59: Error in variable 



101: Identifier declared twice 

102: Low bound exceeds high bound 

103: Identifier is not of the appropriate class 

104: Undeclared identifier 

105: sign not allowed 

106: Number expected 

107: Incompatible subrange types 
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108: 
109: 
110: 
111: 
112: 
113: 
114: 
113: 
116: 
117: 
118: 
119: 
120: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 

151: 
152: 
153: 
154: 
155: 
156: 
157: 
158: 
159: 
160: 



File not allowed hero 

Type must not be real j 

<tagfield> type must be scalar or subrange 

Incompatible with <tagfield> part 

Index type must not be real 

Index type must be a scalar or a subrange 

Base type must not be real 

Base type must be a scalar of a subrange 

Error in type of standard procedure parameter 

Unsatisif ied forward reference 

Forward reference type identifier in variable declaration 

Re-specified params not OK fj>r a forward declared procedure 

Function result type must be scalar, subrange or pointer 

File value parameter not allowed 

A forward declared function'? result type can't be re-specified 

Missing result type in function declaration 

F-format for reals only j 

Error in type of standard procedure parameter 

Number of parameters does nojt agree with declaration 

Illegal parameter substitution 

Result type does not agree with declaration 

Type conflict of operands I 

Expression is not of set typo 

Tests on equality allowed onjly 

Strict inclusion not allowed 

File comparison not allowed 

Illegal type of operand(s) 

Type of operand must be boolean 

Set element type must be scalar or subrange 

Set element types must be compatible 

Type of variable is not arv^ 

Index type is not compatible 

Type of variable is not record 

Type of variable must be flip or pointer 

Illegal parameter solution 



with the declaration 



Illegal type 
Illegal type 



of loop control variable 

of expression 
Type conflict 

Assignment of files not allowed 
Label type incompatible with 
Subrange bounds must be scalar 
Index type must be integer 
Assignment to standard function is not allowed 



selecting expression 



Assignment to formal functiojn is not allowed 

No such field in this record 

Type error in read 

Actual parameter must be a variable 

Control variable cannot be formal or non-local 

Multidefined case label 

Too many cases in case statement 

No such variant in this record 

Real or string tagfields not allowed 

Previous declaration was not forward 
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161: Again forward declared 

162: Parameter size must be constant 

163: Missing variant in declaration 

164: Substition of standard proc/func not allowed 

165: hultidefined label 

166: Mul tideclared label 

167: Undeclared label 

168: Undefined label 

169: Error in base set 

170: Value parameter expected j 

171: Standard file was re-declared 

172: Undeclared external file ! 

174: Pascal function or procedure | expected 

182: Nested units not allowed j 

183: External declaration not allowed at this nesting level 

184: External declaration not allowed in interface section 

185: Segment declaration not allowed in unit 

186: Labels not allowed in interface section 

187: Attempt to open library unsuccessful 

188: Unit not declared in previous uses declaration 

189: 'Uses' not allowed at this nesting level 

190: Unit not in library ! 

191: No private files 

192: 'Uses' must be in interface section 

193: Not enough room for this operation 

194: Comment must appear at top of program 

195: Unit not importable I 

201: Error in real number - digit | expected 

202: String constant must not exceed source line 

203: Integer constant exceeds range 

204: 8 or 9 in octal number I 

250: Too many scopes of nested identifiers 

251: Too many nested procedures of functions 

252: Too many forward references of procedure entries 

253: Procedure too long 

254: Too many long constants in t^is procedure 

256: Too many external references! 

257: Too many externals 

258: Too many local files j 

259: Expression too complicated i 

300: Division by zero j 

301: No case provided for this value 

302: Index expression out of bounds 

303: Value to be assinged is out bf bounds 

304: Element expression out of range 

398: Implementation restriction | 

399: Implementation restriction 
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400: Illegal character in t 

401: Unexpected and of inpu 

402: Error in writing coda 

403: Error in reading lnclu 

404: Error in writing list 

403: Call not allowed in se 

406: Include file not legal 



ext 

t 

file* not enough room 

de file 

file* not enough room 

parata procedure 
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« TABLE 6 * * ASSEMBLER SYNTAX ERRORS • 



Version I. 5 Sep 

This section lists all the gener 

file* specific machine errors *re found in the sections below 
dealing with machine specifics. 



tember 197B 

al errors found in the ERRORS 



1: Undefined label 

2: Operand out of range 

3: Must have procedure name 

4: Number of parameters expected 

9: Extra garbage on line 

6: Imput line over 60 characters 

7: Not enough ifs 

6: Must be declared in ASECT before use 

9: Identifier previously declared 

10: Improper format 

11: EQU expected 

12: Must EQU before use if not to a label 

13: Macro identifier expected 

14: Word addressed machine 

15: Backward ORG not allowed 

16: Indentifier expected 

17: Constant expected 

18: Invalid structure 

19: Extra special symbol N 

20: Branch too far 

21: Variable not PC relative 

22: Illegal macro parameter index 

23: Not enough macro parameters 

24: Operand not absolute 

25: Illegal use of special symbols 

26: Ill-formed expression 

27: Not enough operands 

28: Cannot handle this relative 

29: Constant overflow 

30: Illegal decimal constant 

31: Illegal octal constant 

32: Illegal binary constant 

33: Invalid key word 

34: Unexpected end of input - after macro 

35: Include files must not be nested 

36: Unexpected end of input 

37: Bad place for an include file 

38: Only labels & comments may occupy column one 

39: Expected local label 

40: Local label stack overflow 

41: String constant must be on 1 line 

42: String constant exceeds BO chari 

43: Illegal use of macro parameter 

44: No local labels In ASECT 

45: Expected key word 
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46: Strinj expected 

47: Bad block* parity error jtcrc) 

48: Bad unit number 

49: Bad mode* illegal operation 

50: Undefined hardware error 

51: Lavfc unit* no longer on-line 

52: Lost file, no longer in directory 

S3: Bad title, illegal file name 

54; No irooffl. insufficient sp«ice 

55: ; No unit, no such volumn on-line 

56: No file* no such file on volumn 

57: Duplicate file 

58: Not closed, attempt to op^en an open file 

59: Not open, attempt to accuss a closed file 

60: Bad format, error in reading real or integer 

61 Uutzd macAo dz&LyiLtioni tfJLzaaJL 

61 "«" ok »y" expected 7 

63 May not EQU to unde.fc.nzd JUbeJU 



Z80 Based machines 

For constants* Hex is the de 
a 'B' defines 
a '. ' defines 

Location Counter (LC) <■ * 

All reserved words may not b 
such as an identifier. For 
currently is being used as a 
code* therefore it may not b 
(this is contrary to usual Z 
restricted in the UCSD assem 

Specific error messages: 



76: Incorrect operand format 

77: Close paren " ) M expected 

78: Comma ". " expected 

79: Plus M +" expected 

80: Open paren "(" expected 

81: Stack pointer "SP" expected 

82: -HL" 1 expected 

83: Illegal "CC" condition c^de 

84: Register "C" expected 

85: Register "R" expected 

86: Register "A" expected 



ault type* 

binary ex. 10010B 

decimal ex. 5674. . 



used for any other purpose 
xample* the reserved word "C" 
register and in a condition 

used for any other purpose 
log assembly language* but is 
ler). 



P0P11 Based machines: 
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For constants, Octal is the default 
and output, 
« 'H' defines hexadecimal 
a '. ' defines decima 
a 'B ' defines binary 

Location Counter <LC) - # 



type for both input 



ex. 
ex. 
• x. 



056H 
546. 
1001B 



Specific error messages: 



76: Closing paren ")" expected 

77: Register expected 

78: Too many special symbols 

79: Unrecognizable operand 

80: Register reference only 

81: First operand must be a register 

82: Comma expected 

83: Unimplimented instruction 

84: Must branch backwards to label 
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*********** *******««*«*** ********»***l«-*#************************* 
* TABLE 7 * * American Standard Code for Information Interchange * 

*********** **************************!*#************************»* 

Version I. 5 September 197B 



000 00 


NUL 


32 040 20 


SP 


1 001 01 


SOH 


33 041 21 


t 


2 002 02 


STX 


34 042 22 


M 


3 003 03 


ETX 


35 043 23 


# 


4 004 04 


EOT 


36 044 24 


$ 


3 003 03 


ENQ 


37 045 25 


X 


6 006 06 


ACK 


38 046 26 


Si 


7 007 07 


BEL 


39 047 27 


/ 


8 010 08 


B5 


40 050 28 


( 


9 Oil 09 


HT 


41 051 29 


) 


10 012 


OA 


LF 


42 


052 


2A 


* 


11 013 


OB 


VT 


43 


033 


2B 


+ 


12 014 


OC 


FF 


44 


054 


2C 


• 


13 015 


OD 


CR 


45 


055 


2D 


- 


14 016 


OE 


SO 


46 


056 


2E 


. 


15 017 


OF 


SI 


47 


057 


2F 


/ 


16 020 


to 


DLE 


48 


060 


30 





17 021 


11 


DC1 


49 


061 


31 


1 


18 022 


12 


DC2 


50 


062 


32 


2 


19 023 


13 


DC3 


51 


063 


33 


3 


20 024 


14 


DC 4 


52 


064 


34 


4 


21 025 


15 


NAK 


53 


065 


35 


5 


22 026 


16 


SYN 


54 


066 


36 


6 


23 027 


17 


ETB 


55 


067 


37 


7 


24 030 


18 


CAN 


56 


070 


38 


8 


25 031 


19 


EM 


57 


071 


39 


9 


26 032 


1A 


SUB 


58 


072 


3A 


I 


27 033 


IB 


ESC 


39 


073 


3B 


i 


28 034 


1C 


FS 


60 


074 


3C 


< 


29 035 


ID 


GS 


61 


075 


3D 


m 


30 036 


IE 


RS 


62 


076 


3E 


> 


31 037 


IF 


US 


63 


077 


3F 


? 



64| 100 40 € 
65! 101 41 A 
66 102 42 B 
67| 103 43 C 
68! 104 44 D 
69' 105 45 E 
70| 106 46 F 
7li 107 47 C 
72! 110 48 H 
73 111 49 I 
74 112 4A J 
7|5 113 4B K 

76 114 4C L 

77 115 4D M 

78 116 4E N 
89 117 4F 

80 120 50 P 

81 121 51 Q 

82 122 52 R 

83 123 53 S 

84 124 54 T 

85 125 55 U 

86 126 56 V 

87 127 57 W 

88 130 58 X 

89 131 59 Y 
9^0 132 5A Z 
9|l 133 5B C 

92 134 5C \ 

93 135 5D 3 

94 136 5E * 

95 137 3F _ 



96 140 60 % 

97 141 61 a 

98 142 62 b 

99 143 63 C 

100 144 64 d 

101 145 63 e 

102 146 66 f 

103 147 67 g 

104 130 68 h 

105 131 69 i 

106 152 6A j 

107 153 6B k 

108 154 6C 1 

109 155 6D, m 

110 156 6E n 

111 157 6F o 

112 160 70 p 

113 161 71 q 

114 162 72 r 

115 163 73 s 

116 164 74 t 

117 165 75 o 

118 166 76 v 

119 167 77 u 

120 170 78 x 

121 171 79 y 

122 172 7 A z 

123 173 76 < 

124 174 7C J 

125 173 7D > 

126 176 7E -* 

127 177 7F DEL 
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* TABLE 8 * * P -MACHINE DP -CODES * 



Version I. 5 



September 1978 



OOO 00 

1 001 01 



SLDC 
SLDC 



126 


176 


7E 


SLDC 126 




















127 


177 


7F 


SLDC 127 




















128 


200 


80 


ABI 


171 


253 


AB 


SRO 


214 


326 


D6 


XIT 




129 


201 


81 


ABR 


172 


254 


AC 


XJP 


215 


327 


D7 


NOP 




130 


202 


82 


AD I 


173 


255 


AD 


RNP 


216 


330 


D8 


SLDL 


1 


131 


203 


83 


ADR 


174 


256 


AE 


CIP 


217 


331 


D9 


SLDL 


2 


132 


204 


84 


AND 


175 


257 


AF 


EQU 


218 


332 


DA 


SLDL 


3 


133 


205 


85 


DIF 


176 


260 


BO 


GEO 


219 


333 


DB 


SLDL 


4 


134 


206 


86 


DVI 


177 


261 


Bl 


CRT 


220 


334 


DC 


SLDL 


5 


135 


207 


87 


DVR 


178 


262 


B2 


LDA 


221 


335 


DD 


SLDL 


6 


136 


210 


88 


CHK 


179 


263 


B3 


LDC 


222 


336 


DE 


SLDL 


7 


137 


211 


89 


FLO 


180 


264 


B4 


LEO 


223 


337 


DF 


SLDL 


8 


138 


212 


8A 


FLT 


181 


265 


B5 


LES 


224 


340 


EO 


SLDL 


9 


139 


213 


8B 


INN 


182 


266 


B6 


LOD 


225 


341 


El 


SLDL 


10 


140 


214 


8C 


INT 


183 


267 


B7 


NEQ 


226 


342 


E2 


SLDL 


11 


141 


215 


8D 


I OR 


184 


270 


BB 


STR 


227 


343 


E3 


SLDL 


12 


142 


216 


8E 


MOD 


185 


271 


B9 


VJP 


228 


344 


E4 


SLDL 


13 


143 


217 


BF 


MP I 


186 


272 


BA 


LDP 


229 


345 


E5 


SLDL 


14 


144 


220 


90 


MPR 


187 


273 


BB 


STP 


230 


346 


E6 


SLDL 


15 


145 


221 


91 


NCI 


188 


274 


BC 


LDM 


231 


347 


E7 


SLDL 


16 


146 


222 


92 


NGR 


1B9 


275 


BD 


STM 


232 


350 


E8 


SLDO 


1 


147 


223 


93 


NOT 


190 


276 


BE 


LDB 


233 


351 


E9 


SLDO 


2 


148 


224 


94 


SR5 


191 


277 


BF 


STB 


234 


352 


EA 


SLDO 


3 


149 


225 


95 


SB I 


192 


300 


CO 


IXP 


235 


353 


EB 


SLDO 


4 


150 


226 


96 


SBR 


193 


301 


CI 


RBP 


236 


354 


EC 


SLDO 


5 


151 


227 


97 


SGS 


194 


302 


C2 


CBP 


237 


355 


ED 


SLDO 


6 


152 


230 


98 


SQI 


195 


303 


C3 


EQU I 


238 


356 


EE 


SLDO 


7 


153 


231 


99 


SQR 


196 


304 


C4 


GEO I 


239 


357 


EF 


SLDO 


8 


154 


232 


9A 


STO 


197 


305 


C5 


CRTI 


240 


360 


FO 


SLDO 


9 


155 


233 


9B 


IXS 


198 


306 


C6 


LLA 


241 


361 


Fl 


SLDO 


10 


156 


234 


9C 


UNI 


199 


307 


C7 


LDC I 


242 


362 


F2 


SLDO 


11 


157 


235 


9D 


S2P 


200 


310 


C8 


LEQI 


243 


363 


F3 


SLDO 


12 


158 


236 


9E 


CSP 


201 


311 


C9 


LES I 


244 


364 


F4 


SLDO 


13 


159 


237 


9F 


LDCN 


202 


312 


CA 


LDL 


245 


365 


F5 


SLDO 


14 


160 


240 


AO 


ADJ 


203 


313 


CB 


NEQ I 


246 


366 


F6 


SLDO 


15 


161 


241 


Al 


FJP 


204 


314 


CC 


STL 


247 


367 


F7 


SLDO 


16 


162 


242 


A2 


INC 


205 


315 


CD 


CXP 


24B 


370 


F8 


SIND 





163 


243 


A3 


IND 


206 


316 


CE 


CLP 


249 


371 


F9 


SIND 


1 


164 


244 


A4 


IXA 


207 


317 


CF 


CGP 


250 


372 


FA 


SIND 


2 


165 


245 


A5 


LAO 


208 


320 


DO 


SIP 


251 


373 


FB 


SIND 


3 


166 


246 


A6 


LCA 


209 


321 


Dl 


IXB 


252 


374 


FC 


SIND 


4 


167 


247 


A7 


LDO 


210 


322 


D2 


BYT 


253 


375 


FD 


SIND 


5 


168 


250 


AB 


MOV 


211 


323 


D3 


EFJ 


254 


376 


FE 


SIND 


6 


169 


251 


A9 


MVB 


212 


324 


D4 


NFJ 


255 


377 


FF 


SIND 


7 


170 


252 


AA 


SAS 


213 


325 


D5 


BPT 
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<conpi\atton> 

>f PRQBRAH \ 



Identifier 



y 



<Dh 



uni,i dec\arat 



Ion -<£H 



uses clause 



block 



unit declaration 



<e> 



o 



zee: 



<tdentLfler> 





letter 




<unsloned lnteger> 



l 



-»/dtgltf 



Kunsignod r\umbQr> 



unsigned Integer 



o 



c 



*{dtgltv^ 



L ~<£> 




jr* 



unsigned Integer 



^©— ' 



■ZbB^ 



<constont> 



rGh 



t^ 



constant Identifier 



unsigned nunber 




o 



^ 



characters 




o 



<slnp\e type> 



type Identifier 



<D-t— 



Identifier 



<>> 



constant 



■o 



constant 



•z* 



<typa> 



t^ACKE 



♦(ARRAYj-^C^--^ simple type ' — KI)~7 r *@)* 



<!>' 



srlnple type 



type IdentlfLer 







type 



-»f SET J *(5f) NslnpXe type 

-^(recqrdJ- 



^ield \lst 



{W} 




STRING +M I ) > 



unsigned 
Lntegerf 



-G> 



1 






INTERACTIVE 



£6«c 



<fU\d Uct> 



c 



<z> 



<i> 



Identifier 



type 



— 




CASE 



Identifier 



<dM 



type Identifier 



i 



-^OFp 



<}> 



constant 



<IXs> 



flc\d Uct 



<7>J 



<varlahle> 



variable Identifier ~^i*r 



* field Identifier 



*fjj — -r* expression "Y"\0"^ 



o 



•o 



field Identifier 



<!> 



t«« 



<factor> 



unsigned constant 



r* 
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* MATERIALS AVAILABLE * * Section A. 1 * 

****#♦****♦#*«■*#*»**♦♦♦ ***tt******fr**** 

As the UCSD Pascal system has grown. ; we have found that to 
distribute all of the software which is useful to all users for all 
systems, has become an unbearable task. To attempt to alleviate the 
large number of diskettes the release software requires, and to 
alleviate the number of pages of documentation sent to each subscriber, 
we have started to split the system into a number of seperately 
available sections. 



The 


system and 


number of u 


types of de 


shall be na 


ordered, th 


text editor 


BASIC compi 


<at least). 


File handle 


to enable t 


intelligent 



major section is the section whifc:h con 
all the support routines that go with i 
seful utilities which should enable the 
velopmental work. The master release < 
med) contains the interpreter for the i 
e UCSD Pascal operating system, the Pas 
s (one for screen devices, one for gene 
ler, the Linker, the Assembler for the 

Other utilities include: a generalize 
r). a generalize patch and dump routine 
he subscriber to configure the system t 
ly with any terminal, a desk calculator 



tains the operating 
t. We include a 

subscriber to do all 
as from herein it 
nitial system 
cal compiler, two 
ral purpose), a 
appropriate machine 
d file utility (the 
. a set of programs 
o run most 
. and a librarian. 



Software which is not included in the master release is 
generally available from the IIS as a supplemental package at a nominal 
handling charge (dependent on the amount of material involved with the 



package). The sorts of software available a 
machines other than the machine the master r 
which will be accompanied by the assembler f 
cases we have assemblers for machines for wh 
interpreters, program and data management sy 
referencer. and a pretty-printer. Also avai 
some indeterminite time after the I. 3 releas 
Instruction packet. This may be available t 
may be available only through the University 
Studies Office. The CAI package consists of 
programming quizzes, and a record keeping sy 
L. Bowles book: (Micro )Compute r prob lem Sol 



re: interpreters for 
elease was ordered for. 
or that machine, in some 
ich we do not yet have 
stems, specifically a cross- 
lable. although not until 
e. a Computer Aided 
hrough the IIS. however it 
of California Extension 
knowledge quizzes, and 
stem, all based on Kenneth 
IBS. Using Pascal- 
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* THE FIRST TIME THROUGH * * Section A. 2. 1 * 

***«*#*#«-***«*#*##«-*«•***# ****!***#********* 

Version 1.5 September 1978 

Welcome to UCSD PASCAL. If you put the disk labelled "PASCAL:" 
in your booting drive* went through your normal boot-strapping 
procedure, and were greeted in a similar fashion, you do not need to 
read this section. 

If this is not the case then here arej a few of the problems we 
have encountered with I. 4 coming up in strangle and foreign lands: 

1. > Some revisions of the LSI-il refuse t|o boot with the clock 

running. If you have a switchable clock, turn it off to 
bootstrap; if and when the system gre|ets you with the welcome 
message and the date, turn the clock back on. 

2. ) You have Andromeda floppy-disk drives;. Currently you will be 

able to use only drive *0 unless the other drives have disks in 
them at bootstrap time. Drives that do not meet this condition 
will appear permanently off-line. 

3. ) You do not have enough memory. The minimum requirement for 

memory is 24K 16-bit words. 

4. ) You have a system configured for RK-00 hard-disk and you have 

an unformatted disk on line. The system will hang waiting for 
a reply from the disk which cannot be; generated if the disk is 
unformatted. Take the disk off-line land try again. 

9. ) You have a system configured for RK and RX and the RX is not 
present. RX must be present. 

6. ) We haven't encountered your problem before. Call: 

The number listed on the front page of this document. 
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* 8080/ZBO WITH CP/M & 3740 DISKS ¥ * Section A. 2. 2 # 

Version Ij 3 September 197B 

THE CP/M IMPLEMENTATION OF 0C SD PASCAL 
BOOTING PASCAL 

To get Pascal running under your version of CP/M, a two-disk 
bootstrap is used. First* boot CP/M in the ysual manner. On the CP/M 
disk distributed with the Pascal system is a: file called PASCAL.COM. 
PIP this file over to the booted disk, then fxecute it. 

j i 

When the program asks for a Pascal d^sk, put the disk labeled 
PASCAL: in drive A and any disk in drive B. The system may not boot if 
there is no disk in drive B, of if you have a 1-drive system and your 
CP/M drivers wait on a request to drive B. then hit Creturn3. In 
about 15 seconds the Pascal welcoming message should appear. (Note: we 
have discovered that some drives, possibly as a result of being double- 
buffered, cannot keep up with a 2 to 1 interleaving and hence are 
extremely slow. The bootstrap then may take about 30 or 40 seconds. 
We intend to alleviate this problem in the nj?xt release, but persons 
with such drives will have to bear with slow disk accesses for the 
present. ) 

If all has gone well. Welcome to the Wonderful World of Pascal. 
If not, please call to notify us of your problem. 

MODIFICATIONS TO CP/M 

The Pascal system will! operate under; an unmodified CP/M system, 
but it is advisable to create a special CP/M| for use with Pascal in 
order to have Pascal running in the environment for which it was 
designed. 

1. If there is no disk in a drive and an access is made from 
that disk, the driver should not wait to perform that access until a 
disk is inserted, as the Pascal system often attempts to read from 
empty drives when searching for a particular \ disk. Instead, simply 
return a 1 to indicate a bad I/O operation. 

2. If you have a keyboard interrupt j handler, it should 
recogniie the character Ccntrl-f3 as a "flush-output" toggle and signal 
the character-out routine to gobble any characters until signaled 
again. When it receives another Ccntrl-f3 He keyboard handler should 
signal the output handler causing the output handler to resume 
outputting characters sent to it. 
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The keyboard interrupt handler should alto recognize the 
character Ccntrl- s3 as a "stop ootpuf toggle and wait until it 
receives another Ccntrl-s3 before allowing program execution to 
continue. 



If your keyboard has no alphalock* 
character not used for some other purpose 

CCntrl-p3. Creturn3* Ccntrl-i3. Ccntrl-s3*, » ta ..», . , ... „,...*, *-»..• %,. •>•<, 
character in SYSCOM~. CRT INFO should be excluded from consideration. Ue 
suggest Ccntrl-aJ. 



the input driver can use any 
as an alphalock toggle. 
Ccntri-f3. Ccntrl-c3 or any 



Pascal expects the tab character <jCcntrl-i3> to cause the 
terminal cursor to advance to the nearest {eight column. If the 
terminal does not do this itielf, then the driver in the BIOS should. 



CREATING A BOOTSTRAP ON A PASCAL DISK 

Note: These instructions are for a 
blocks. For instructions for a non-standa 
READ. ME on the CP/M disk in the distributi 

On the CP/M disk arc two programs, 
program PGEN.COM is a program used to writ 
filled by boot code and BIOS) to track O. 
that reads SYSTEM. MICRO from a Pascal disk 
correct place* and starts the interpreter' 



standard BIOS with 912-byte 
rd BIOS* reference file 
on packet. 

PGEN.COM and PINIT. ASM. The 
e out a buffer (which will be 

PINIT. ASM is the boot code 
* loads the BIOS into the 
s boot routine. 



which will require a slight 
PBOOT will reside on track 



You must create a file PBOOT. HEX* 
modification of your current BOOT program. 

0* sector 1 and* when executtd* will load {track O* sectors 2 thru 13 
into memory starting at location ( MSI 2E-4^>« 1024 + OBAOOH* and jump to 
that location. 



You then need to edit PINIT. ASM* changing MSIZE to match your 
system. Assemble the file* creating PINIT. HEX. 

The next step is to stitch together the one-sector boot* the 
Pascal interpreter loader* BIOS* and the program to write this 
Information out to sector 0. The following is a session with DDT that 
performs all this. This session was used to create a 48K system. User 
input is in lowercase* and Comments »rt of|f to the right. 



A>ddt pgen. com 



DDT VERS 1. 
NEXT PC 
0400 0100 



I load PGEN.COM into memory. PBOOT. PINIT* 

i and BIOS will be overlayed into PGEN's 

i data area* aftfljr which a memory image will 

j be saved. 
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-lpboot4S. hex 
-h900 O 

0900 0900 
-T900 
NEXT PC 
09B0 0000 

-ipinit48. hex 
-h980 BAOO 



C380 4FB0 
~r4f80 
NEXT PC 
0A7d BAOO 

-ibios48. hex 
-hd80 beOO 
C3B0 4FB0 
-r4f80 
NEXT PC 
0F76 0000 
-Ccntrl-c3 

A>save 16 pgen48. com 



J set PBO0T48. HEX as| input file 

» PBOOT starts at location O, and we want to 

; read it in at location 90OH 



i read; in PBOOT 



i stt 'PINIT48. HEX' as input file 



i (in general (MSI 
» want it at locat 

f read; it in 



I PINIT starts at location BAOOH in a 48K system 



ZE-4B>«1024 + BAOOH), and we 
ion 980H 



i and lastly rm*d BIDS into location D80H 



j leave DDT. . . 

; ...and save the program. 



A>pgen48 

PCEN VI. 

PUT B00TER?(Y/N>y 

WRITING BOOTER TO DRIVE A, TY^»E RETURN 



AGAIN?(Y/N>n 

CET BOOTER? (Y/N)n 

REBOOT ING CP/M, TYPE RETURN 



i sample execution of the program. 



i pjut a Pascal disk (preferably a 
i copy of the master) in drive A 
t before hitting Creturn3. 



i put the CP/M disk back in drive A 
i ; before hitting Creturn3. 



A> 
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»*#***«*****«***«««*«**-lt**«« ********* j ##*««*«*****«*• 

* DIFFERENCES AMONG IMPLEMENTATIONS *;* Section A. 3 * 

*********#**«************************ ! *************** 



Version I. $ 



September; 197B 



Th 



•following it a li«t of differences between I 
B0B0/Z80 Pascal/ the ittms describe the 



B0B0/Z80. 



PDP11 Pascal and 
way it is on the 
and how that jliffers from t(ie documented system. 



2. 



3. 
4. 

5. 
6. 



1. The definition of div is different (thereby changing the values 

returned by mod ) : 

i 

a div b « floor<*/b> 

a mod b * a - b*;Ca div b) 



The I/O drivers are all written for synchronous operation. This 

means that Cbreak3 has po effect. CCptrl-sD and Ccntrl-f3 will 
not perform as described unless you hjiye a keyboard interrupt 
handler* and this handler is modified as specified below in 
Modifications to CPM . 



This also means that UNITBU&Y, UNITCLEAR, 
meaningless. (In the future it may be 
UNITBUSY and UNITCLEAR operations on the keyboard 
currently infeasible. ) 



and UNITWAIT are 
possible to use the 

but this is 



The interpreter is called SYSTEM. MICRO instead of SYSTEM. I NTERP. 

The CP/M implementations have bootstraps [that are not accessible to 
Pascal, hence the program BOOTER. CODE; will not work. See the 
appropriate section of this document for instructions on 
copying and/or creatingl a bootstrap. 



There arm no turtle graphicjs procedures i 
with bit— mapped graphics devices are 
of the documentation for a Pascal ver 

There are no long integer functions avail 
system. They will be available in la 



n the interpreter. Users 
advised to see section 3. 1 
si on of DRAWL I NE. 

able with the ZB0/B080 
ter releases. 
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* CHANGES MADE IN RECENT RELEASES # 

******************** ft-4*****4* # «« # *« 



Version I. 3 



* Section A. 4 * 

*************** 



September 1978 



SUMMARY OF DIFFERENCES HFTU EEN UCSD PASCAL RELEASES 1.4 



AND \. g 



The following additionsi improvements 
to Version 1.5. Reference the (section #) pre 
more detailed description. For information re 
tween previous releases refer to the system do 
releases. 



and/or corrections apply 
ceding each entry for a 
garding differences be- 
cumentation for those 



(1. 1) 

OPERATING SYSTEM 



( 



) 



(2. 1. 1) 
(1. 1) 

(1. S) 

(1.9) 

U. 1) 
CI. 1) 

(1. 1) 
CI. 2) 



All fields of SYSCOM (systemicommunication area) that 
can be set in the utility SETUP are initialized at 
boot time using *SYSTEM. MISCINFO (if present). 

The bug in the string intrinsic POS has been fixed. 

CCompile will now prompt the! user for the file to 
compile if the workfile is empty. 

There now exists a new command called LCink at the 
command level of the system that directly invokes 
the new utility *SYSTEM. LINKER. 

There now exists a new command called A(ssem at the 
command level of the system that directly invokes 
the new assembler. 



If a file SYSTEM. STARTUP exists on a given disk, that 
file will be run as a user program at initialize time. 
R(un directly invokes *SYSTE|l. LINKER if it is 
needed by the user program. It assume use of 
♦SYSTEM. LIBRARY for externalj linkage. 

XCecute will not run code flies which need to be 
LCinked. An error message will appear. 

The file handler is now a separate file called 
♦SYSTEM. FILER. 
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Backspacing and <del> *v n|ow allowed when reading integers 
from Unit #1 (CONSOLE: ). Hqwever, backspacing over the sign* 
if any* is not permitted. 



(1.2) FILE HANDLER 



Substantial modifications have been 
responses to filer prompts. For nearly all c 
option of using either of two wildcard symbol 
control over activity within the filar. In g 
will allow selective control ov^r files withi 
R(«move, and TCransfer commands. The "?" symb 
the addition that it will cause the filer to 
task to be performed. 

0(et command now allows use of 
".CODE" suffixes in file names 

8(ave command will now allow th 
be saved on a disk other than t 

E( and L(dir now require an app 

volume I. D. 's. Selective listi 

is allowed' through use of the u 

junction with file prefix and s 

Directory listings may be sent 

CONSOLE: by following the sourc 
'# <volume id>'. 

C(hange command will now allow 
selected file prefix and suffix 
groups of filenames containing 
through use of the wildcard s 



»fi9 in the syntax of user 
ommands there exists the 
s enabling extended 
eneral* the symbol "*" 
n the L(dir« C(hange* 
ol is similar to "■" with 
prompt the user for each 



appended ".TEXT" and 
and ignores them. 

e current workfile to 
he system volume. 

ended ": " after literal 
ng of directory subsets 
ildcard symbol * in con- 
uffix string patterns, 
to a volume other than 
e volume name with 



the user to change 
string patterns within 

the chosen patterns 
ols « or ?. 



R(emove command allows select 
files using the » or ? symbol 
C(hange command. To selective 
the files on a given volume t 
<vol.prefix> ? and will be pr 
the disk. Typing R(emove) <vo 
no action. R(emove) <vol. pref 
on the disk. All commands res 
removal of more than one file 
"Update directory?" following 



T<ransfer command functions in 
the C(hange command. When perf 
transfer using one drive it wil 
the file name to be transferred 
disk is removed. It is now poss 
transfer any or all of the file 



yirjb 



iv>e removal of groups of 

in a manner similar to the 
ly remove any or all of 
he user may type 
offlpted for each file on 
1. pref ix> now will result in 
ix> * will remove ALL files 
ulting in the potential 
uiill prompt the user with 
removal" of file names. 



a manner similar to 
drming a disk to disk 
1 now ask for the 

to before the source 
ible to selectively 
s on a disk by typing 



Page 280 



<vol.prefix> followed by "?" or M « M 
lar to the R(emove command. The user 



In a manner simi- 
will be prompted 



for each file and is given the optio|n of transferring. 

Z(ero command will now prompt the user with the present 
number of blocks allocated the the disk in the directory* 
if a valid number exists, and will ask if the same number 
of blocks is wanted. If the response! is No (or there was 
no previous M # of blocks") then the ^ser may enter the 
appropriate number of blocks. The Z('ero will be aborted 
if a bad # of blocks is specified. 



N(ew command will now check for a M . 
to the current workfile and will ask 
this file to be removed. (This is fo 
with the new L. 2 (large file) EDITOR 



BACK" file corresponding 

if the user wishes 
r use in conjunction 



The new command ? will result in display of the prompt- 
line extension: 

Filer: B(ad-blks, E( xt-dir , K(runch, HCake. P(ref i x» ^(olume. X( amine* Z(ero 

I 
Typing any non-command key will redisplay main promptline. 



EDITORS (Sections 1.3 and 1.4) 

I 
Three different editors are currently provided with the UCSD 
PASCAL system: YALOE, "EDITOR" (E. 6) , and the new L. 2 EDITOR. EDITOR is a 
substantially more powerful (and even easier to use) editor than YALOE. 
but it makes some assumptions about the run-time [environment. 
The L. 2 EDITOR (eventually to become the standard release editor) will 
handle files of arbitrary size, however it is in jits experimental form 
and recommended for brave users only. 

EDITOR requires a reasonably powerful CRT jterminal with the following 
features: 

XYADRE5SING - go directly to a given row land column on the screen 
NDFS 



LF 



RLF 



- non-destructive forward spa|ce (the inverse of back- 
space} 

- down one line (and if at th|e bottom of the screen 
scrolls up) 

- reverse line feed (up one iinei not required to 
reverse scroll) 
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(EDITOR no longer requires Erase-to-end-of-screem 
Erase-to-end-of-line# or Home facilities. > 

Typing "E" at the main command ' leWl will execute the file 

SYSTEM. EDITOR. Selection of either YALOE or EDITOR(E. 6 or L. 2) as 

the system editor is made in the Filer by CChanging the selected file's 
name to SYSTEM. EDITOR. 



Proper use of EDITOR requires thafc the system disk be left 
on-line while editing. 

The E. 6 EDITOR has the following differences from the previously 
released E. 4 EDITOR: 

(1.3.3) The C(opy command now requires the user to specify whether 
the copy is to be made from the BCuffer ( as in the old 
C(opy command ) or from another F(ile. Copying from a file 
allows the option of copying subsets of the file by speci- 
fying markers. 



ajnd RCight justification as well 



(1.3.3) A(djust now enables L(eft 

as C(enterlng of text lines; 

( ) Automatic date-stamping of files. The first date the file 

was created and the last cla^e that it was updattd *v dis- 
played in the Environment. ! 

The following is a brief summary bf the differences between, 
the E. 6 editor and the L. 2 (large file) editor (for more information 
see section 1.3.5): 

(1.3.5) The L. 2 EDITOR does not urita to SYSTEM. WRK. TEXT unless 
a new workfile has been created. Instead* upon entering 
the editor the file to be read from is T^nmmmd with 
a .BACK suffix and a workfile is created with the 
old file's name. 

(1.3.5) New commands to be used in conjunction with large file 
capability AT9 B(anish L(ufjt or Rdght* and N(ext B(ack 
or F(orward or S(tart or E(pd. 

(1.3.5) F(ind and R(eplace will prompt user if target not found 
and the file extends beyond the editor buf f er (1. e. « if it 
is a "large file"). 

(1.3.5) Changes within E(nvironmertt: 
Ability to set tab stops. 
Lists names of markers, j 
Lists number of pages in Left and Right 

stacks of large files, in buffer and 
number of pages available on disk. 
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(I. S) 

DEBUGGER 



(1.5) The debugger now work* at claimed in the *y*tem documentation. 



PASCAL COMPILER 



(2.2) Lowercase characters arw now al 
identifiers and reserved words. 



l<j>wed within all 
but art converted to 



for linkage to separately 
assembly language routines. 



upper cased, e. » Hello is equivalent to hElLO). The break 
character '._' is also allowed (anywhere a digit is 
allowed in an identifier) and is ignored. 

(3.3.3) There now exists the facility fof using "Long Integers" for 
business applications. The standard type INTEGER has been 
extended and the standard arithmetic operators +. -. *. DIV# 
and unary plus and minus are allowed for use with long 
integers (as well as the TRUNC and STR intrinsic*). 

(3.3.2) A substantial new addition to capabilities of programming 
in UCSD PASCAL is the facility 
compiled "UNIT'S" and external 
A UNIT is a library module whicfh may be imported for use 
by PASCAL programs. It incorporates the use of public and 
private declarations and definitions. The introduction of 
UNITS to UCSD PASCAL introduce!; new syntax for the language 
including the new reserved worcjls^ 

UNIT 

INTERFACE 

IMPLEMENTATION 
and USES. 

(3.3.2) PASCAL programs may now access external assembly language 
routines through the use of an EXTERNAL declaration which 
resembles the FORWARD declaration. 



(1.9) LINKER 

SYSTEM. LINKER is a new system utility made available to allow 
the linkage of separately compiled PASCAL UNITS as well as access in 
PASCAL to assembly language routines, and linkage from assembly language 
to assembly language. 

(4.2) LIBRARIES 

The file SYSTEM. LIBRARY is available fqr use in conjunction 
with SYSTEM. LINKER. The old LINKER. CODE has been replaced by LIBRARY. CODE 
which allows the user to build libraries containing utility routines. 
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<2. 1. i) 

I NTRINSICS 

The procedure STR has b««n added and is used to convert integers 
or long integers to thair character string reprtsentation. 

UTILITY PROGRAMS 

Several nam UTILITY PROGRAMS have bean added. Reference 
also the TABLE OF CONTENTS and the UTILITY DOCUMENT (Sect ion 4). 

(4. 3) NEW SETUP. 

<4. 5) REVISED PATCH. 

(4.8) COPYDUPDIR. 
(4. 8) MARKDUPDIR. 

<1.9> ASSEMBLERS. (LSI-11. 8080. Z80) 

(4.9) DISASSEMBLER. 
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# INDEX * * Section B ♦ 

♦***♦*♦#* *♦♦#*♦♦*#♦*»• 

Vertion 1.5 Stptimber 1978 



ARRAY, 117 

ASSEMBLER, 4, 99, 100, 114, 284 

BAD BLOCK SCAN, 26 

BANISH, 55 

BLOCK, 117 

BLOCKNUMBER, 117 

BLOCKREAD, 124. 140, 156 

BLOCKWRITE, 124, 140, 156 

BOOTSTRAP, 45, 227 

BREAKPOINT, 77 

CASE STATEMENTS, 135 

CHANGE, IS 

CHARACTER. 117 

CLOSE, 124, 149, 156 

COMPILED LISTING, 84 

COMPILER, 3, 81, 283 

CONCAT, 119, 157 

CONDITIONAL ASSEMBLY, 111 

CONTROL CHARACTERS, 59 

COPY, 51, 120 

CP/M, 5, 273 

CRAWL, 72 

CURSOR, 31, 36, 62 

DATE, 25 

DEBUGGER, 4, 71, B2, 283 

DELETE, 34, 39, 40, 51, 52, 120, 157 

DESTINATION, 117 

DIRECTIVES, 105 

DIRECTORY, 16, IB, 284 

DISK ERROR, 26 

DISK SIZE, 29 

DISK SPACE, 27 

DLE, 163 

DRAWBLOCK, 129, 157 

DRAWLINE, 129, 157, 159 

EDITOR, 3, 31, 281 

EOF, 125, 138, 141 

EOLN, 125, 138, 141, 148 

EXAMINE, 26, 72, 74 

EXECUTE, 4 

EXIT, 142, 157 
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